自动筛选以删除不包含该值的行

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