Copiar rango e Insertar y Pegar 5 filas iguales en primera celda vacia de columna A

[Leonardo Briceño]

Hola amigos de Ayuda Excel. Nuevamente por aquí para pedirles un . He intentado hacerlo pero pero no logro el objetivo.

Necesito copiar el rango A5:K5 (fila que estará siempre oculta) y deben ser insertadas 5 filas iguales en la primera celda vacía de la columna A.

La macro se ejecutará a través de un botón.

Agradecido de antemano por su valiosa colaboración.

INSERTAR 5 FILAS AYUDA EXCEL 2.xlsm

[Antoni]

Sub CopiarA5K5()
Application.ScreenUpdating = False
For x = 1 To 5
   Range("A5:K5").Copy
   Range("A6").End(xlDown).Offset(1).Insert xlDown
Next
End Sub

 

[Leonardo Briceño]

@Antoni Genial, muchas gracias!!! Funciona perfecto!!! Un detalle que se me olvidó mencionar. Me gustaría que la celda activa quede en la primera celda de A del grupo de 5 filas insertadas. Con eso quedaría listo. Muy amable!!

[Antoni]

Sub CopiarA5K5()
Application.ScreenUpdating = False
For x = 1 To 5
   Range("A5:K5").Copy
   Range("A5").End(xlDown).Offset(1).Insert xlDown
Next
Range("A5").End(xlDown).Offset(-4).Select
End Sub

 

[Leonardo Briceño]

@Antoni Gracias Antoni, muy amable. Excelente!!!!?