использование фильтров в таблице

[UlaV]

Доброго дня!
Прошу помощи, не могу объяснить VB что в моей таблице cash  в первом столбце из 10 значений
необходимо оставить 2 "ваучер" и "льгота"
Я попробовала(см ниже), но тут же запустила бесконечный процесс
ох, даже не знаю

Код: (Visual Basic)

ActiveSheet.ListObjects("cash").Range.AutoFilter Field:=1, Criteria1:=Array _
        ("_Неизвестная_", "взаимозачет", "Комиссия", _
        "предоплата", "Кредиты", "Проценты", "Таможня", "Хозрасходы"), _
        Operator:=xlFilterValues
 
cashList.DataBodyRange.SpecialCells(xlCellTypeVisible).Select
Selection.Delete
ActiveSheet.ListObjects("cash").Range.AutoFilter Field:=1