for döngüsü yardım

[rainmaker29]

arkadaşlar ekli dosyada gcb listesinde A5 ten başlayan verilerin yanına C5 hücresinden başlayarak for döngüsüyle 1 den A5 in son satırına kadar sayı atamasını istiyorum ama yapamadım. yardımlarınızı bekliyorum.teşekkürler

For i = 5 To Cells(65536, 1).End(3).Row
Cells(i, 2) = i
Next

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()

For i = 5 To [A65536].End(3).Row
Cells(i, 2) = i - 4
Next

End Sub

. . .

 

[rainmaker29]

teşekkürler hüseyin bey