Автофильтр для удаления строк, не содержащих это значение

Question

Я надеюсь, что кто-нибудь поможет с этим запросом. У меня есть электронная таблица, которую я получаю ежедневно на работе.

Я хочу удалить все строки в Excel, которые не содержат определенных значений в столбце A.

VBA не позволяет мне запустить ниже код, и я не могу понять, почему. Может ли кто-нибудь помочь?

Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AR$3403").AutoFilter Field:=1, _
Criteria1:=Array("<>SKTRUSDBND", "<>1628", "<>1565", "<>OMSPSF"), 
Operator:=xlFilterValues
Rows("2:1545").Select
Selection.Delete Shift:=xlUp
Rows("1:1").Select
Selection.AutoFilter