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?
p>
Siguiente
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