prova con questa dovrebbe funzionare
codice:
Sub Macro1()

    Range("A1:P1").Select ' dipende dalle celle che vuoi copiare
    Selection.Copy
    Sheets("Foglio2").Select
    ActiveSheet.Paste
End Sub