Necesito que haga un recuento de los numeros que pertenezcan a esta serie en la columna H, lo que pasa es que no aparece desde el primer termino 

Aqui esta la macro

Sub macro09()
Inicio = Val(InputBox("Ingrese el primer termino"))
Do
razon = Val(InputBox("Ingrese radio"))
N = Val(InputBox("Ingrese numero de elementos"))
Loop Until razon <> 0 And N > 0 And N = Int(N)
Fila = 0
For x = 1 To N - 1
Inicio = Inicio + razon
Fila = Fila + 1
Cells(Fila, "H") = Inicio
Next

End Sub

Que tal Herald, cambia el valor de x a 0, la verdad no le entiendo a los calculos que hace tu macro, pero si pones la x en 0 muestra la cantidad completa del numero de elementos