Bir tabloda verilen satır sayısına ulaşıldığı zaman aşağı devam etmek yerine sonraki sütunun ilk satırını seçerek devam eden VBA kodudur.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 10 Then
Cells(1, Target.Column + 1).Activate
End If
End Sub