è possibile copiare anche l'intera riga:
codice:
    Rows("3:3").Select
    Selection.Copy
    Rows("5:5").Select
    ActiveSheet.Paste