Intercalar filas en blanco en un rango de datos

hola, Mbaeijhapa !

... insertar, en forma automatica filas en blanco en un rango de datos. Por ej.:
F.1 aaaaaaaaaaa
F.2 ccccccccccccc
F.3 aaaaaaaaaaa
F.n bbbbbbbbbbb
... insertar en forma intercalada filas en blanco
F.1 aaaaaaaaaaa
F.2
F.3 ccccccccccccc
F.4
F.5 aaaaaaaaaaa
F.n-1
F.n bbbbbbbbbb

una forma +/- rapida es 'simular' que vas seleccionando cada celda como rango 'discontinuo'
[a partir de la segunda celda 'no vacia'] y al final ejecutas un solo comando de insertar filas [p.ej.]
en un modulo de codigo 'normal' ==Sub InsertarFilasEnRango()
Dim EsteRango As String, Fila As Long
For Fila = 2 To Range("a65536").End(xlUp).Row
If EsteRango <> "" Then EsteRango = EsteRango & ","
EsteRango = EsteRango & "a" & Fila
Next
Range(EsteRango).EntireRow.Insert
End Sub

si se trata de muchas filas, el tipo de datos 'String' podria 'quedarse corto' :(
haz la prueba y... ¿comentas?
saludos,
hector.