●For ~ Next を使った繰り返し処理

'Sheet1のA1〜A10に0~9を入力
Dim i As Long

For i = 0 to 9

   Sheets("Sheet1").Cells(1+i,1)=i

Next i

<ざっくり解説>

変数iが+1ずつされて、
For ~ Nextの間の処理を0~9まで10回繰り返します。

●Do Until ~ Loop を使った繰り返し処理

Dim n As Long
n=1'初期値

'A列に入力された連続するデータの最終行を探す場合
Do Until Sheets("Sheet1").Cells(n,1)=""

   n = n+1

Loop

MsgBox "最終行は" & n-1 & "行目です。"

<ざっくり解説>

Do Until~は、条件式を満たすまで繰り返します。
上記のサンプルコードでは、
Sheet1のA1から空欄””が見つかるまで
変数nに+1ずつカウントアップすることで、
1行ずつ下に降って最終行を探しています。

最終的に変数nは空欄行になるので、
最終入力行はn-1行目となります。

●Do While~ Loop を使った繰り返し処理

Dim n As Long
n=1'初期値

'A列に入力された連続するデータの最終行を探す場合
Do While Sheets("Sheet1").Cells(n,1)<>""

   n = n+1

Loop

MsgBox "最終行は" & n-1 & "行目です。"

<ざっくり解説>

Do While~は、条件式を満たしている間は処理をループします。
上記のサンプルコードでは、
セルに値が入力されている間はnを+1ずつカウントアップすることで
最終入力行を探しています。