intercalar ceros en un rango de datos

hola, ema !

segun los datos que expones, prueba adaptando la fila de inicio y la fila con el ultimo dato en una macro +/- como la siguiente:

en un modulo de codigo 'general' ==Sub Inserta_ceros()
Application.ScreenUpdating = False
Dim Fila As Integer, Fila_1 As Integer, Fila_n As Integer
Fila_1 = 1
Fila_n = 20
For Fila = Fila_n + 1 To Fila_1 + 1 Step -1
Cells(Fila, 1) = 0
If Fila > Fila_1 + 1 Then Cells(Fila - 1, 1).EntireRow.Insert
Next
End Sub

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

__ la consulta original __

necesito intercalar ceros en un rango de valores. Es decir, lo que tengo yo seria:
f.1. 4
f.2 4
f.3 5
f.4 8
...
f.n 23
y lo que necesito tener es:
f.1 4
f.2 0
f.3 4
f.4 0
f.5 5
f.6 0
...
f.n-1 23
f.n 0

hola :-) !

y suponiendo que se tengan datos en otras columnas en las que no se
quiera movilizar su contenido:

Sub IntroducirCeros_rangos()
Dim Fila As Long
For Fila = 2 To 24 Step 2
Cells(Fila, 1) = 0
Next
End Sub

¡Un SAludo :-)!