Boa noite,

Veja se estes exemplos te ajudam:

Sub Copiar()
    Sheets("Plan1").[AK2:AP2].Copy Sheets("Plan2").[AK2]
End Sub

Sub Copiar2()
    Sheets("Plan1").[AK2:AP2].Copy
    
    'Colar Especial / valores
    Sheets("Plan2").[AK2].PasteSpecial xlPasteValues
End Sub

Abraço

Obrigado JValq..

Sera que seria pedir muito se nesse processo de colar na outra aba, os dados da pesquisa fiquem salvos linha abaixo de linha.

Obrigado mesmo.

Boa tarde,

Veja se atende:

Sub Copiar()
    Sheets("Plan1").[AK2:AP2].Copy Sheets("Plan2").Range("AK" & Cells.Rows.Count).End(xlUp).Offset(1, 0)
End Sub

Abraço

mais uma vez obrigado jvalq, suas ajudas são muito uteis..