Macro Copiar Excel

[win14]

Hola a todos, una consulta estoy haciendo una macro en la cual quiero seleccionar una fila y esa misma fila copiarla 4 o 5 renglones para abajo, pero mi duda es como hago para q dicha macro se ejecute desde cualquier celda, quiero posicionarme en cualquier renglon y ejecutarla, obviamente me tomara lo que dice el renglon o fila que me posicione, me entienden???

aca les dejo lo que hice yo, pero solo me lo ejecuta en la fila "A4:I4" quiero que esto sea indistinto, pero que respete el rango de A a I, en cualquier renglon..

Range("A4:I4").Select
Selection.Copy
Range("A5:A7").Select
ActiveSheet.Paste
Range("A11").Select

gracias por su ayudaaa

[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

[win14]

Te cuento que me tira un error, te cuento lo que hice copie tu formula en la macro, me pare en cualquier celda y me da error, pienso que debe ser la referencia que vos pones "mirango" en mi caso en alguna parte de la hoja de calculo tendria que decir mi rango o algo asi???

gracias amigo

[win14]

Perdon Amigo, Ya Funciono, Estaba Bien Como Lo Hicistes Gracias Y Perdon Por La Equivocacion

Graciassss

[mrocf]

Fue un gusto.
Saludos