Bom dia pessoal.

consegui uma macro que transfere as informações da plan2 para a plan3, porém ela é baseada em critério. Preciso que seja transferido todos os dados independente de qualquer critério.

Agradeço desde já a colaboração de todos.

Segue abaixo o código(macro).

Sub Extrair_dados()
    Sheets("Plan3").Range("A2:W50000").ClearContents
    
    ultimaLinha = Plan2.Cells(Rows.Count, "w").End(xlUp).Row 
    UltimaColuna = Plan2.Cells(1, Columns.Count).End(xlToLeft).Column
    linha = 2
    
    For x = 2 To ultimaLinha
          If Plan2.Cells(x, 1) = "a" Then
            For i = 1 To UltimaColuna
                Plan3.Cells(linha, i) = Plan2.Cells(x, i)
            Next
            linha = linha + 1
       End If
    Next
End Sub

Observação: Os dados serão transferidos da Plan2 para Plan3.