Как исправить ошибку «5 во время выполнения» при использовании VBA для фильтрации Excel

Question

Я пытаюсь отфильтровать таблицу на основе 2 критериев.

Каждый раз, когда запускается мой макрос, он отображает

Ошибка времени выполнения «5». Недопустимый вызов процедуры или аргумент.

сообщение, как только оно попадает на фильтрацию листа.

Я переключил ноутбуки, скопировал слово за словом и сохранил его в своей личной книге макросов. На моем предыдущем ноутбуке этот макрос работал без ошибок (мой предыдущий ноутбук был Lenovo, а этот - Dell).

код VBA

Range("A2:X2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Range("A:X").AutoFilter Field:=16, Criteria1:="<>*East*", Criteria2:="<>*VO*", Operator:= xlFilterValues
Selection.ClearContents
ActiveSheet.Range("A:X").AutoFilter Field:=16, Criteria1:="PR VO"
ActiveSheet.Range("A:X").AutoFilter Field:=11, Criteria1:="<>*EC *", Operator:= xlFilterValues
Selection.ClearContents
ActiveSheet.Range("A:X").AutoFilter Field:=11
ActiveSheet.Range("A:X").AutoFilter Field:=16
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range ("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
    .Apply
End With

Я ожидаю, что этот код отфильтрует значения, которые не соответствуют критериям, и очистит эти данные. Это в основном, чтобы отфильтровать кандидатов для нашего Восточно-Капского региона. Результат, однако, составляет Run-time Error '5'. Invalid procedure call or argument.