Penso que é isso que você precisa.

Sub Relatório()
  Application.EnableEvents = False
    ' Verifica se o valor alterado foi na célula
    'If Not Intersect([K1], Target) Is Nothing Then
        
        Dim lastRow As Long
        Dim lastResultRow As Long
        Dim X As Long
        
        ' Verifica qual a ultima célula preenchida
        lastRow = Plan1.Cells(Rows.Count, 1).End(xlUp).Row
        
        ' Apaga valores anteriores
        Plan3.Range("A2:M65536").ClearContents
        
        lastResultRow = 2 'linha resultado
        
        ' Ciclo em todas as linhas
        For X = 2 To lastRow '1 Linha dados pequisa
        
           ' verifica se o valor é igual ao da pesquisa
           If Plan1.Cells(X, 6).Value = "WLT" Then '1 coluna pequisa
           
                ' Copia os valores
                Plan3.Cells(lastResultRow, 1).Value = Plan1.Cells(X, 1).Value
                Plan3.Cells(lastResultRow, 2).Value = Plan1.Cells(X, 2).Value
                Plan3.Cells(lastResultRow, 3).Value = Plan1.Cells(X, 3).Value
                Plan3.Cells(lastResultRow, 4).Value = Plan1.Cells(X, 4).Value
                Plan3.Cells(lastResultRow, 5).Value = Plan1.Cells(X, 5).Value
                Plan3.Cells(lastResultRow, 6).Value = Plan1.Cells(X, 6).Value
                Plan3.Cells(lastResultRow, 7).Value = Plan1.Cells(X, 7).Value
                Plan3.Cells(lastResultRow, 8).Value = Plan1.Cells(X, 8).Value
                Plan3.Cells(lastResultRow, 9).Value = Plan1.Cells(X, 9).Value
                Plan3.Cells(lastResultRow, 10).Value = Plan1.Cells(X, 10).Value
                Plan3.Cells(lastResultRow, 11).Value = Plan1.Cells(X, 11).Value
                Plan3.Cells(lastResultRow, 12).Value = Plan1.Cells(X, 12).Value
                Plan3.Cells(lastResultRow, 13).Value = Plan1.Cells(X, 13).Value
                Plan3.Cells(lastResultRow, 14).Value = Plan1.Cells(X, 14).Value
            
                lastResultRow = lastResultRow + 1
           End If
        Next
        
        Application.EnableEvents = True
End Sub

Uma outra opção seria usar o FiltroAvançado, apesar de dizer que teem o mesmo Layout, a ABA (MP3_NOVO) as colunas vão até "M" e a (Wallet) até "S", então se for aumentar os resultados filtrados precisa arrumar as colunas.

FiltroAvançado ( AdvancedFilter - Facilita na Opção Pesquissar do Forum )

[]s

José muito Obrigado pelo codigo

Mauro o filtro avançado é D++..funciona perfeitamente!!!!

Estou aprendendo sempre com vcs!!

Abs!!

Ops, você alterou o Post anterior e este ficou vago

A questão era que o filttro não havia funcionado com 5000 linhas, então a resposta seria:

Altere a referencia na rotina de: "Range("A1:M25")" para Range("A1:M5000")

[]s

ok..MEU AMIGO...muito obrigado!