Excel マクロ B列の最終行までA列に連番を入れる VBA

Sub B列の最終行までA列に連番を入れる()
Dim i, 指定行, 連番
‘指定行の指定
指定行 = 1
‘連番開始番号の入力
連番 = 1

For i = 指定行 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(i, 1).Value = 連番
連番 = 連番 + 1
Next
End Sub