insertar fila en blanco

Saludos:

suponiendo que tengo datos desde celda A1 hasta la fila "x", no importa
cual.

la macro va a la celda A1 e inserta una fila debajo de esta, luego busca la
siguiente fila con algún dato e inserta otra fila en blanco y así
sucesivamente.

Sub insertar()
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Range("A1").Activate
End Sub

Gabriel Raigosa


"ACH" escribió en el mensaje
news:OWlTjWL$

Tengo una lista con mas de 2000 filas y quiero insertar una fila en blanco
despues de cada una de las que ya yengo escritas. ¿Como lo hago mediante
una macro y de una sola vez?.