Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Me.ListObjects("Таблица1").HeaderRowRange, Target) Is Nothing Then
        Application.EnableEvents = 0
        Target.Offset(1).Cells(1, 1).Select
        Application.EnableEvents = 1
    End If
End Sub

Me.ListObjects(1).HeaderRowRange

Dim lo As ListObject
    On Error Resume Next
    Set lo = Me.ListObjects("Таблица1")
    On Error GoTo 0
    If lo Is Nothing Then
        MsgBox "Таблица 'Таблица1' не найдена на листе. Выполнение кода невозможно!", vbCritical, "www.excel-vba.ru"
        Exit Sub
    End If