Agregar filas en blanco en Excel usando VBA

Sub?Insert()

Dim?i?As?Long

For?i?=?Range("A65536").End(xlUp) .Row?To?2?Step?-1?'terminar las filas hasta el inicio

Filas(i).Resize(3).Insert?'?3?

Fin

Sub Insert()

Atenuar mientras

For i = UsedRange.Rows .Count To 2 Paso -1 'El número de filas que terminan en la fila inicial

Rows(i).Resize(3).Insert ' 3 es el número de filas que se insertado

Siguiente paso

Fin del sub