Простая функция сортировки в Excel VBA сбивает файл

Question

У меня есть очень простая функция сортировки, которая сортирует таблицу, используя столбец O и затем N.

Sub SortKV1()
With ActiveWorkbook.Sheets("KV1").Sort
     .SortFields.Add Key:=Range("O3"), Order:=xlDescending
     .SortFields.Add Key:=Range("N3"), Order:=xlDescending
     .SetRange Range("Query_KV1")
     .Header = xlNo
     .Apply
     Application.Goto ActiveWorkbook.Sheets("KV1").Cells(1, 1)
End With
End Sub

Однако, когда я снова сохраняю и открываю файл, возникает ошибка, и ее необходимо исправить. , Я приложил фотографии ошибки Excel ниже. Есть идеи, что не так? Я попытался создать лист заново, но это не помогло. У меня есть код VBA в модуле, и я вызываю его с помощью кнопки ActiveX.

Заранее спасибо.

Answer 1

После некоторых ранних недостатков с объектом Sort я решил больше не использовать его и переключился на Sort() метод Range объекта

ActiveWorkbook.Sheets("KV1").Range("Query_KV1").Sort _
    key1:=Range("O3"), order1:=xlDescending, Header:=xlNo, _
    key2:=Range("N3"), order2:=xlDescending, Header:=xlNo