VBA for ifを使い行数を確認し、行数が空の場合終了する。

Question

for文とif文を組み合わせて、行数を確認して行に空白があった場合は終了、ない場合は最終行までの行数を表示させるプログラムを組みたいのですが、
Rows.Countとfor文を使い、ifで空白があった場合終了、ない場合は表示と思っているのですが上手く行きません

sub test()

Dim i As Long
p =Cells(Rows.Count,1).End(xlUP)

for i =2 To p
 if i ="" Then
 Exit For
Else
Cells(2,9).Value =p
End if

Next i

End Sub

Comments

[yorozuya]

どこまでやってみたのか、提示してください。

[Risty_kkk]

すいません、抜けてました😅
お願いします

sub test()

Dim i As Long
p =Cells(Rows.Count,1).End(xlUP)

for i =2 To p
if i ="" Then
Exit For
Else
Cells(2,9).Value =p
End if

Next i

End Sub

[y_waiwai]

コードは、質問を編集し、</>(コードの挿入)ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

[Risty_kkk]

追記：for・ifではなく、Do　Whileでした。Do　Whileのコードは現在思考中です。

[YT0014]

質問の内容が不明瞭です。ご提示にコードに不備があり修正したい、ということで良いのですか？その場合、「for・ifではなく、Do　Whileでした。」とはどのような意味でしょうか？
また、ご提示いただいたコードは、インデントが崩れている為、理解し辛いので、インデントの修正をお願いいたします。