Macro para copiar filas

hola, nico !

Alguien me puede ayudar?
Necesito una macro para copiar filas completas en otra hoja, por ejemplo al pulsar el numero de fila.

el siguiente ejemplo copia la fila 11 de la hoja1 -> a la fila 7 de a hoja2 [con todo y todo]

Sub Copiar_una_fila_entre_hojas()
Dim Fila_origen As Integer, Fila_destino As Integer
Fila_origen = 11
Fila_destino = 7
' OJO: la siguiente instruccion SUSTITUYE lo que tenga 'Fila_destino' '
Worksheets("hoja1").Rows(Fila_origen).Copy Worksheets("hoja2").Cells(Fila_destino, 1)
End Sub

si lo que necesitas es que la fila 'copiada'... -> desplace la fila 'ocupada' una fila abajo y se incruste 'en su lugar'...

Sub Copiar_una_fila_entre_hojas()
Dim Fila_origen As Integer, Fila_destino As Integer
Fila_origen = 11
Fila_destino = 7
Worksheets("hoja1").Rows(Fila_origen).Copy
Worksheets("hoja2").Cells(Fila_destino, 1).Insert (xlDown)
Application.CutCopyMode = False
End Sub

[seguramente] habra algunas 'cosillas' que no coincidan entre mis supuestos y tu realidad :-(
comprenderas que con el 'volumen' de detalles que has expuesto en tus consultas -???-

si cualquier duda [o informacion adicional... -> mas 'precisa']... comentas ?
saludos,
hector.