Aktif hücrenin sağındaki hücrelerde ilerleyen ve bulduğu ilk boş hücrede duran VBA kodudur.
Option Explicit
Sub AktifHucreninSagindakiIlkBosHucreyeGit()
ActiveCell.Offset(0, 1).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
End Sub