No funciona macro poner fecha

Buen dia a todos

Estoy tratando de hacer una macro para poner en a3 en adelante la fecha que
yo le indique mediante el inputbox por ejemplo si le indico que me ponga del
dia 1 de marzo al 3 de marzo me pone la fecha dela siguiente manera:
A3 29/02/2008 lo correcto es 01/03/2008
A4 01/03/2008 02/03/2008
A5 02/03/2008 03/03/2008
A6 03/03/2008

La macro es la siguiente:
Sub fecha()
Dim numero, final, mes As Integer
mes = Val(InputBox("Ingrese un mes", "Captura"))
final = Val(InputBox("Ingrese el ultimo dia", "Captura"))
For i = i To final Step 1
Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
Next i
End Sub

Les agradezco de antemano sus comentarios y/o ayuda

Saludos

Hola GR
cambia las lineas
For i = i To final Step 1
Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
por
For i = 1 To final Step 1
Cells(i + 2, 1).Value = DateSerial(Year(Date), mes, i)

un saludo
Pedro J.


> Buen dia a todos
>
> Estoy tratando de hacer una macro para poner en a3 en adelante la fecha que
> yo le indique mediante el inputbox por ejemplo si le indico que me ponga del
> dia 1 de marzo al 3 de marzo me pone la fecha dela siguiente manera:
> A3 29/02/2008 lo correcto es 01/03/2008
> A4 01/03/2008 02/03/2008
> A5 02/03/2008 03/03/2008
> A6 03/03/2008
>
> La macro es la siguiente:
> Sub fecha()
> Dim numero, final, mes As Integer
> mes = Val(InputBox("Ingrese un mes", "Captura"))
> final = Val(InputBox("Ingrese el ultimo dia", "Captura"))
> For i = i To final Step 1
> Cells(i + 3, 1).Value = DateSerial(Year(Date), mes, i)
> Next i
> End Sub
>
> Les agradezco de antemano sus comentarios y/o ayuda
>
> Saludos
>