Goal-seek Macro Loop que omite espacios en blanco

Soy muy nuevo en VBA. Intenté aprender intentando y leyendo foros, pero estoy perdido.

Sub Macro() Dim i As Long For i = 1 To 100 ActiveCell.Offset(1, 0).Select ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) Next i End Sub 

Esto es lo que encontré en los foros más o less, y funciona para una columna con numbers aleatorios, lo cual es bueno. Pero necesito que omita celdas en blanco. Alternativamente, necesito que solo aplique la macro a las celdas visibles (cuando se filtra).

He encontrado respuestas a esta pregunta, pero no sé cómo insertlas en mi código.

 Sub Macro() Dim i As Long For i = 1 To 100 If ActiveCell.Value = "" then GoTo here ActiveCell.Offset(1, 0).Select ActiveCell.GoalSeek Goal:=1, ChangingCell:=ActiveCell.Offset(0, -3) here: Next i End Sub 

Prueba esto