Ustaw automatyczne filtrowanie wielu symboli wieloznacznych

Teraz robię kodowanie, aby ustawić filtr dla wykresu danych. Zasadniczo nie wiem, jak opublikować tutaj arkusz danych, więc spróbuj je wpisać):

(od lewej jest kolumna A) Nazwa * Urządzenie B * Ilość * Sprzedaż * Właściciel

Zasadniczo muszę odfiltrować w kolumnie 2: - Urządzenie BD z dowolnym słowem zawiera „M1454” lub „M1467” lub „M1879” (Oznacza to, że M1454A lub M1467TR nadal będą pasować) - Właściciel z PROD lub RISK

Oto kod, który napisałem:

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

Gdy uruchomię kod, maszyna zwraca błąd 1004, a część, która wydaje się być błędna, to część 2 filtra (nie jestem pewien co do użycia pola, więc nie mogę tego powiedzieć na pewno)

Edytować; Santosh: Gdy wypróbuję twój kod, maszyna pobiera błąd 9 z indeksu poza zakresem. Błąd pochodzi z instrukcji with. (ponieważ tabela danych ma kolumnę od A do AS, więc po prostu zmieniłem na A: AS)

questionAnswers(3)

yourAnswerToTheQuestion