Macro Copiar Excel

[mrocf]

Fíjate si este código te sirve:

Código:

Sub Copia_y_Pega()
    Set MiRango = Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, 9))
    MiRango.Copy Destination:=Range(MiRango.Offset(1, 0), MiRango.Offset(3, 0))
    Set MiRango = Nothing
End Sub

Saludos