Bom dia!!

O que é

Inclusao

???

Att

Uma das Planilhas da Pasta de Trabalho.

Substitua pela rotina abaixo:

Procure sempre expecificar o nome da aba por completo uma vez que elas não foram alteradas na janela propriedades.
nas instruções : xlUp e xlToLeft em vez de ter a letra "L" estava com o numero "1"

Não fiz testes de lógica, por isso reveja, pois uma das condiçoes será sempre verdadeira pelo fato da coluna "A" -Prefixo ter o mesmo código para todos:

Sub MASTER()

    Sheets("Relatorio").Range("A2:K50000").ClearContents

    ultimaLinha = Worksheets("Inclusao").Cells(Rows.Count, "A").End(xlUp).Row
    
    ultimaColuna = Worksheets("inclusao").Cells(1, Columns.Count).End(xlToLeft).Column
    
    linha = 2

    For X = 2 To ultimaLinha
        
        If Worksheets("inclusao").Cells(X, 6) = Worksheets("Inicio").Cells(5, 7) Or Worksheets("inclusao").Cells(X, 7) = Worksheets("Inicio").Cells(5, 10) Or Worksheets("inclusao").Cells(X, 1) = Worksheets("Inicio").Cells(7, 9) Then
            For i = 1 To ultimaColuna
                Worksheets("Relatorio").Cells(linha, i) = Worksheets("inclusao").Cells(X, i)
            Next
            linha = linha + 1
        End If
    Next
    
End Sub

[]s

EDIT: O Mauro foi mais rápido...

Tente assim:

Sub MASTER()

    Sheets("Relatorio").Range("A2:K50000").ClearContents

    ultimaLinha = Sheets("Inclusao").Cells(Rows.Count, "O").End(xlUp).Row
    ultimaColuna = Sheets("Inclusao").Cells(1, Columns.Count).End(xlToLeft).Column
    linha = 2

    For X = 2 To ultimaLinha
        If Sheets("Inclusao").Cells(X, 6) = Sheets("Inicio").Cells(5, 7) Or Sheets("Inclusao").Cells(X, 7) = Sheets("Inicio").Cells(5, 10) Or Sheets("Inclusao").Cells(X, 1) = Sheets("Inicio").Cells(7, 9) Then
            For i = 1 To ultimaColuna
                Sheets("Relatorio").Cells(linha, i) = Sheets("Inclusao").Cells(X, i)
            Next
            linha = linha + 1
        End If
    Next
End Sub

Veja que eu corrigi a referência das planilhas e tb troquei o "0" por "O" e o "x1" por "xl"

Bom dia!!

Tente

Sub MASTER()

    Worksheets("Relatorio").Range("A2:K50000").ClearContents

    ultimaLinha = Worksheets("Inclusao").Cells(Rows.Count, 1).End(xlUp).Row
    ultimaColuna = Worksheets("Inclusao").Cells(1, Columns.Count).End(xlToLeft).Column
    linha = 2

    For X = 2 To ultimaLinha
        If Worksheets("Inclusao").Cells(X, 6) = Worksheets("Inicio").Cells(5, 7) Or Worksheets("Inclusao").Cells(X, 7) = Worksheets("Inicio").Cells(5, 10) Or Worksheets("Inclusao").Cells(X, 1) = Worksheets("Inicio").Cells(7, 9) Then
            For i = 1 To ultimaColuna
                Worksheets("Relatorio").Cells(linha, i) = Worksheets("Inclusao").Cells(X, i)
            Next
            linha = linha + 1
        End If
    Next
End Sub

Acontece que ela não está filtrando, está apenas copiando os dados de uma planilha e transferindo para outra.

Estou usando o seguinte algorítimo de VBA

Sub MASTER()

Worksheets("Relatorio").Range("A2:G50000").ClearContents

ultimaLinha = Worksheets("Inclusao").Cells(Rows.Count, 1).End(xlUp).Row
ultimaColuna = Worksheets("Inclusao").Cells(1, Columns.Count).End(xlToLeft).Column
linha = 2

For X = 2 To ultimaLinha
If Worksheets("Inclusao").Cells(X, 6) = Worksheets("Inicio").Cells(5, 7) Or Worksheets("Inclusao").Cells(X, 7) = Worksheets("Inicio").Cells(5, 10) Or Worksheets("Inclusao").Cells(X, 1) = Worksheets("Inicio").Cells(7, 9) Then
For i = 1 To ultimaColuna
Worksheets("Relatorio").Cells(linha, i) = Worksheets("Inclusao").Cells(X, i)
Next
linha = linha + 1
End If
Next
End Sub

Enfim, o erro é o seguinte, ele não está copiando os dados seguindo o filtro, ele está apenas copiando linha por linha e transferindo.

Alguém identifica o ERRO?

Daniiel66, procure manter o foco no mesmo tópico, juntei os dois por achar que os assuntos estão relacionados.

Como eu comentei em minha resposta anterior, uma das condições de pesquisa aninhadas referente a Coluna "A" serão sempre Verdadeiras uma vez que todos os códigos são iguais, então é copiado tudo, você tem de ajustar estas condições.

Pesquise no forum sobre autofiltro com mais de um criterio e encontrara varios tópicos referente a "FILTRO".

[]s

Muito Obrigado Mauro.