Macro que en una celda vea si se cumple condición

HOLA, estoy tratando de hacer una macro que en una celda vea si se cumple una condición, si es así que copie la celda activa, sino es así baje una linea y nuevamente evalúe la condición en la nueva celda pra copiar si se cumple o seguir sino, esto hasta llegar a la celda que yo le indique por ejemple la celda a100, lo que yo tengo es lo siguiente y lo hace bien con la primera celda que encuentra y cumple la condición, pero no con las siguiente:
Agradecido de vuestra colaboración
Sub copyfila()
Dim RANGO
  Dim dire
  Dim dire1
  dire = Rows("14:14").Address 'HACE VARIABLE A LAS FILAS
  dire = 1
  dire1 = 2
  RANGE("D1").Select
  RANGO = 10
  While RANGO <> 1000
  If ActiveCell.Value = 10 Then
    Sheets("HOJA1").Select
    ActiveCell.EntireRow.Select
    Selection.Copy
    Sheets("muestra").Select
    Rows(dire1).Select
    ActiveSheet.Paste
    dire1 = dire1 + 1
    RANGO = RANGO + 1
    Sheets("HOJA1").Select
 Else
 ActiveCell.Offset(1, 0).Activate
  RANGO = RANGO + 1
  End If
  Wend
End Sub

{"Lat":-46.5588603031172,"Lng":-73.125}