O exemplo que coloca tem que ser real com a sua situação e no arquivo não vi os dez critérios...

Boa tarde, nesse caso tem 13 critérios. É que existiram diversas guias, e cada uma terá os critérios diferentes. Eu não posso mandar a planilha original se não eu ganho a conta ;/

Boa tarde!!

Tente algo asim..

Sub AleVBA_19248()
Dim lastrow As Long
    
    lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
    'Application.ScreenUpdating = False
        With Worksheets("dados")
            .Range("E:E").Clear
            .Range("E2").Formula = "=IFERROR(MATCH(LEFT(A2,11),criterios!$A$2:$A$14,0),0)"
            .Range("E2").AutoFill Destination:=.Range("E2:E" & lastrow)
            .Range("E2:E" & lastrow).Value = .Range("E2:E" & lastrow).Value
            [E1].Value = "AleVBA"
            .AutoFilterMode = False
            .Range("E1:E" & .Cells(Rows.Count, 5).End(xlUp).Row).AutoFilter 1, ">=1", xlWhole
            .Range(.Cells(2, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, "D")).SpecialCells(12).Copy Sheets("rasultado").Range("A2")
            .AutoFilterMode = False
        End With
   ' Application.ScreenUpdating = True
End Sub

Não deu tempo de testar
Att

Alexandre, testei e não funcionou ;/

Eu fiz o seguinte código. Porém o mesmo só funciona com dois critérios, se eu coloco mais ele filtra porém não retorna nada na tabela. Por que acontece isso?

    
Windows("CARGA TOTAL.xlsx").Activate
      On Error Resume Next
    ActiveSheet.ShowAllData
    ActiveSheet.Range("$A$1:$J$2999").AutoFilter Field:=7, Criteria1:=Array( _
        "0378-A01-01*", "0378-A01-02*") _
        , Operator:=xlFilterValues
    ActiveWindow.SmallScroll Down:=-9
End Sub

Boa tarde!!!

Eu apenas usei uma formula, onde nesta coluna que está a formula (via VBA), o filtro vai capturar os critérios da guia "criterios", copiar os dados e colar na guia desejada, foi isso que eu entendi.

Att