Excel - Автосортировка - перестать возвращаться к верхней части таблицы

Question

Я использую приведенный ниже код (который работает чудесно), однако, как только я выбираю кого-то в столбце «Ассоциировать», таблица автоматически сортирует данные, но возвращает меня к вершине таблицы.Я хотел бы остаться в текущей строке, которую я только что закончил.Я не хочу постоянно прокручивать назад.Это возможно?

Private Sub Worksheet_Change(ByVal Target As Range)
ThisWorkbook.Sheets("Log").ListObjects("Table1").Sort.SortFields.Clear
ThisWorkbook.Sheets("Log").ListObjects("Table1").Sort.SortFields. _
    Add Key:=Range("Table1[[#ALL],[Date]]"), SortOn:=xlSortOnValues, Order _
    :=xlAscending, DataOption:=xlSortNormal
ThisWorkbook.Sheets("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 ThisWorkbook.Sheets("Log").ListObjects("Table1").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End If
End Sub

Answer 1

Может быть, так же просто, как добавить окончательный Target.Activate.