Macro Pegar Rango Si Cumple el criterio

Ojala puedan ayudarme

Lo que intento hacer es Copiar un rango por ejemplo A1:BV4 el cual cuenta con Formato de Color y Tipo de Letra. Y que dicho Rango se pegue en la misma hoja cada que encuentre la palabra "Proportions" en todas celdas de la fila A. Este es el código que realice.

Sub Pegar Valores según criterio ()

Sheets("Hoja1").Range("A1:BV4").Copy

Do While ActiveCell.Value <> ""

If Left(ActiveCell.Value, 11) <> "Proportions" Then

ActiveSheet.Paste
ActiveCell.Offset(-2, 0).Select
Else
End If

ActiveCell.Offset(1, 0).Select

Loop

End Sub

El error es que solo se pega en la celda que tengo seleccionada que me falta para que busque y pegue el rango 2 filas hacia abajo cada que encuentre la palabra "Proportions"