LLenar fechas en hoja de caja, de nuevo

Hola grupo, pedi ayuda y KL, mil gracias de nuevo, me da 2 posibilidades. La
primera me da "error 1004 en tiempo de ejecucion: error definido por la
aplicacion o el objeto". La segunda funciona, pero la ultima fecha la repite
hasta el final de la tabla.
Perdon por ser tan pesado,pero al no aplicar una formula a la macro no acabo
de entender el funcionamiento.
Xavier