連続番号を付ける

k=1
For i = 5 To 20 ' 連番を付ける
Range("a" & i) = k
k = k + 1
Next
'　または,A列の値がなくなるまで,B列に連番をつける.
do
range("b" & i+3)=i
i=i+1
loop until range("a"& i+3)=""