Autofilter Subscript out of range

Question

Я пытаюсь отфильтровать для 5 значений в столбце O. Эти значения могут быть или не существовать. То, что я пытался являются следующие два примера:

ActiveSheet.ListObjects("Sheet1").Range.AutoFilter Field:=15, Criteria1:= _ 
      Array("CONS", "MISC", "PFG", "PRT", "TOTE"), _ 
      Operator:=xlFilterValues 
      ActiveSheet.Range("$O$8:$O").SpecialCells(xlCellTypeVisible).EntireRow.DELETE 
Range("O8").AutoFilter Field:=15 

и

ActiveSheet.Range("$O$8:$O").AutoFilter Field:=15, Criteria1:="=CONS", _ 
      Operator:=xlOr, Criteria2:="=MISC", _ 
      Operator:=xlOr, Criteria3:="=PFG", _ 
      Operator:=xlOr, Criteria4:="=PRT", _ 
      Operator:=xlOr, Criteria5:="=TOTE" 
     ActiveSheet.Range("$O$8:$O").SpecialCells(xlCellTypeVisible).EntireRow.DELETE 
Range("O8").AutoFilter Field:=15 

Первый блок кода дает мне ошибку: Подстрочный вне диапазона. Вторая ошибка: Определенная пользователем или объектная ошибка.

Кто-нибудь видит, что в этом плохого?

спасибо.

Answer 1

Попробуйте

ActiveSheet.Range("$O$8:$O$10000").AutoFilter Field:=1, Criteria1:=Array("MISC" _ 
     , "MISC", "PFG", "PRT", "TOTE", "="), Operator:=xlFilterValues 
    ActiveSheet.Range("$O$8:$O10000").SpecialCells(xlCellTypeVisible).EntireRow.Delete 
    Range("O8").AutoFilter Field:=1