Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl As Range
Application.EnableEvents = False
For Each cl In Target.Cells
    With Me.ListObjects("Таблица1")
        If Not Intersect(cl, .DataBodyRange) Is Nothing And .DataBodyRange(cl.Row - .ListRows(1).Range.Row + 1, 1).Value <> Date Then
            Me.Cells(cl.Row, .ListColumns(.DataBodyRange.Columns.Count).Range.Column + 1).Select
            Exit For
        End If
    End With
Next
Application.EnableEvents = True
End Sub