Con la grabadora
Pero son demasiadas filas.
Sub Macro1()
Range("C3:I7").Select
Selection.Copy
Range("C12").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("C21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Hace tiempo que no entro en el foro y no veo la opcion de subir libro.
Un Saludo.