Установить автоматическую фильтрацию нескольких подстановочных знаков

Прямо сейчас я делаю кодирование, чтобы установить фильтр для диаграммы данных. В основном я неЯ не знаю, как разместить лист данных здесь, поэтому просто попробуйте набрать их):

(слева начинается столбец A) Имя * BDevice * Количество * Продажа * Владелец

В основном мне нужно отфильтровать по 2 столбцу: - BDevice с любым словом содержать "M1454" или же "M1467" или же "M1879" (Это означает, что M1454A или M1467TR все еще подходят) -Владелец с PROD или RISK

Вот код, который я написал:

Sub AutoFilter()

  ActiveWorkbook.ActiveSheet..Range(B:B).Select

  Selection.Autofilter Field:=1 Criteria1:=Array( _
      "*M1454*", "*M1467*", "*M1879*"), Operator:=xlFilterValues

  Selection.AutoFilter Field:=4 Criteria1:="=PROD" _
      , Operator:=xlOr, Criteria2:="=RISK"

End Sub

Когда я запускаю код, машина возвращает ошибку 1004, и часть, которая кажется неправильной, является частью фильтра 2 (я не уверен в использовании Field, поэтому не могу сказать точно)

Редактировать; Сантош: Когда я пробую ваш код, машина выходит из-под ошибки 9. Ошибка пришла от оператора with. (поскольку таблица данных имеет столбец от A до AS, поэтому я просто изменяю на A: AS)

Ответы на вопрос(3)

Ваш ответ на вопрос