Bir sütunda boş satır bulana kadar ilerlemeye devam eden, boş satır bulunduğunda da o hücreyi seçip kodun çalışmasını durduran VBA kodu alternatifidir.
Option Explicit
Sub AsagiDogruIlerleVeBirSonrakiBosSatiriSec()
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
End Sub