Insertar Filas

hola, 'tocayo' !

Una base de datos con 50 lineas, consecutvas.
Necesito incluir en toda la base de datos, lineas de por medio, en blanco.
De forma que se quede un dato, y una linea en blanco, de nuevo un dato, y una linea en blanco...
Existe una forma "mecanica" de hacer este ejercicio, o solo con una macro?

una forma 'mecanica' seria como seleccionar cada celda del rango como rango *dis-continuo* e insertar las filas
o... hacer +/- lo mismo por una macro +/- como la siguiente:

Sub Inserta_Fila_Intercalada()
Dim Fila As Byte, Rango As String
For Fila = 5 To 53 ' <= OJO: desde la segunda fila hasta la ultima del rango '
Rango = Rango & ",a" & Fila
Next
Application.ScreenUpdating = False
Range(Mid(Rango, 2)).EntireRow.Insert
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.