Insertar celdas de forma alterna

hola, ?

Tengo una columna con muchos datos, una cosa del tipo:
fila 1) 1234
fila 2) 2345
fila 3) 3456
fila 4) 4567
...
Lo que queria es insertar un celda en blanco entre dato y dato, o sea, queme quede algo asi:
fila 1) 1234
fila 2)
fila 3) 2345
fila 4)
fila 5) 3456
fila 6)
fila 7) 4567
fila 8)
...
A ser posible, preferiria que no insertara filas enteras (lo que me modificaria tambien las columnas adyacentes)
sino solo las celdas necesarias en esa columna en concreto...

si suponemos que estamos hablando de la columna 'A' -?-
y que la fila 1 queda como esta y se insertan filas alternas desde la fila 2...
-> y siempre y cuando NO necesites mas alla de 2048 celdas [limite para areas/rangos 'NO-contiguos']...
prueba con una macro +/- como la siguiente [en un modulo de codigo normal/general/estandar/...]

Sub Inserta_saltos()
Dim Fila As Integer, Rango As String
For Fila = 2 To 4 ' no mas alla de 2048 <= OJO '
Rango = Rango & "a" & Fila & ","
Next
Range(Left(Rango, Len(Rango) - 1)).Insert xlShiftDown
End Sub

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

Sub Inserta_saltos()
Dim Fila As Integer, Rango As String
For Fila = 2 To 4 ' no mas alla de 2048 <= OJO '
Rango = Rango & "a" & Fila & ","
Next
Range(Left(Rango, Len(Rango) - 1)).Insert xlShiftDown
End Sub

Muchiiiiísimas gracias, justo lo que estaba buscando.
Y eso que nunca había usado macros, pero ha sido muy sencillo. Sólo he
tenido que modificar los límites y la referencia a la columna en cuestión
y... ¡perfecto!
De nuevo, gracias.
Un saludo,
Tris