Hm, ne verujem da je problem napisati makro ali ovo možeš da uradiš i bez VBA..
Prvo popuni svaku drugu ili treću ćeliju, koliko ti je već kopija potrebno, sa datumima. To recimo možeš sa nekom f-jom tipa
Code:
=IF(MOD(ROW();3);"";DATUM)
gde sam sa DATUM označio nepostojeću f-ju (lako ćeš je sam napisati) koja daje vrednost uvećanu za 1 u odnosu na max vrednost iz prethodnih ćelija.
Kad si to uradio, selektuj čitav taj opseg, pa pritisni CTRL+G (Go To) / Special... / Blanks / OK
što će ti selektovati samo prazne ćelije, pa unesi formulu tipa "vrednost ćelije iznad" - odnosno, ako ti je kursor aktivne ćelije u A5, kucaš =A4 i CTRL+ENTER da se ovo preslika u sve prazne ćelije.
Sad je još ostalo COPY/PASTE Values, da poništiš formule.