¿Cómo realizar filtro usando array en el criterio?

Para Elsa Matilde

He probado esto pero no me funciona

Sub Filtradepositos()

Set h1 = Sheets("Hoja1")
If h1.AutoFilterMode Then h1.AutoFilterMode = False
If h1.FilterMode Then h1.ShowAllData
h1.Range("Z1") = h1.Range("C1")
uf = h1.Range("C" & Rows.Count).End(xlUp).Row
uc = "E"
Range("C1").Select
Selection.AutoFilter Field:=3, Criteria1:=Array("VENTAS*", "*MULTIVA*", "*8457*", "*165253780*", "*BANREGIO*", "*DEPOSITO EN EFECTIVO*", "*110628506*", "*109146202*"), Operator:=xlFilterValues

End Sub