ゴールシークマクロ空白をスキップするループ

Question

私はVBAの新機能です。私は試してフォーラムを読むことで学ぶことを試みてきましたが、私は迷っています。

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 

これは、私は、多かれ少なかれフォーラムで見つけたものであり、それは良いですが、ランダムな数字を持つ列、のために働きます。しかし、私はそれが空白のセルをスキップする必要があります。代わりに、可視のセルにのみマクロを適用する必要があります（フィルタリングした場合）。

私はこの質問に対する回答を見つけましたが、コードに挿入する方法がわかりません。

Answer 1

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 

、これは働いていたおかげで、この