Excel VBA Автосортировка после завершения строки

Question

У меня есть следующий код, но я получаю следующую ошибку: Ошибка во время выполнения '1004': сбой метода 'Range' объекта '_Worksheet'

Кажется, я не могу понять это.Ошибка появляется в строке If Not Intersect.Любая помощь будет принята с благодарностью.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields. _
    Add Key:=Range("Table1[[#ALL],[Date]]"), SortOn:=xlSortOnValues, Order _
    :=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort.SortFields. _
    Add Key:=Range("Table1[[#All],[Time]]"), SortOn:=xlSortOnValues, Order _
    :=xlAscending, DataOption:=xlSortNormal
If Not Intersect(Target, Range("Table1[[#All],[Associate]]")) Is Nothing Then
    With ActiveWorkbook.Worksheets("Log").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If

End Sub

Приведенный выше код работает как чудо (человеческая ошибка).Однако, как только код закончен, он возвращает меня к вершине таблицы.Есть ли способ сохранить фокус на последнем завершенном ряду?

Answer 1

После просмотра комментариев SJR & Gravitate я перепроверил мой заголовок столбца.Похоже, в конце был дополнительный пробел, который, как только я его удалил, работал код, как и предполагалось.