LLenar fechas en hoja de caja

hola, Xavier !

tengo una hoja de caja con los datos de todo el a#o:
A1-Fecha; A2- Descripcion; A3 y A4- Entradas y salidas y A5- Saldo
... al poner fecha, a lo largo del a#o, solo la he pusto una vez (p.ej. en A2 fecha 2/1/05 y en A7 fecha 2/1/05)
como hacer para que me rellene las An intermedias con la fecha correspondiente?
Se trata de eviatr el copy-past, pues tengo mas de mil registros

-> prueba corriendo la siguiente macro sobre la hoja 'en cuestion'...
[suponiendo que solo requieres copiar en las celdas 'vacias' con la fecha en la ultima celda 'llena' ANTERIOR]...
en un modulo de codigo 'normal' ==Sub Completa_Fechas()
Application.ScreenUpdating = False
Dim Sig As Integer
With ActiveSheet.Range([a1], [a65536].End(xlUp)).SpecialCells(xlCellTypeBlanks)
For Sig = 1 To .Areas.Count
With .Areas(Sig)
.Value = .Offset(-1).Resize(1)
.NumberFormat = .Offset(-1).Resize(1).NumberFormat
End With
Next
End With
End Sub

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