Establecer filtrado automático de múltiples comodines

Ahora mismo estoy haciendo codificación para establecer un filtro para un gráfico de datos. Básicamente, no sé cómo publicar la hoja de datos aquí, así que intente escribirlos):

(a partir de la izquierda es la columna A) Nombre * BDevice * Cantidad * Venta * Propietario

Básicamente necesito filtrar por 2 columnas: -El dispositivo BD con cualquier palabra contiene "M1454" o "M1467" o "M1879" (Significa que M1454A o M1467TR aún caben) -El propietario con PROD o RIESGO

Aquí está el código que escribí:

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

Cuando ejecuto el código, la máquina devuelve el error 1004 y la parte que parece estar equivocada es la parte 2 del filtro (no estoy seguro del uso de Field, por lo que no puedo decirlo con seguridad)

Editar; Santosh: Cuando intento su código, la máquina obtiene el subíndice del error 9 fuera de rango. El error vino de la declaración with. (ya que la tabla de datos tiene una columna de A a AS, por lo que solo cambio a A: AS)

Respuestas a la pregunta(3)

Su respuesta a la pregunta