On A4 todays date was added, on A5 tomorrows date, A6 the day after tomorrow, .... A29 28 Days Later (opps, movie name rights violation)
Just small changes to your code, this ran just fine.
Highly recommend you add
Option Explicit
to the very first line of code.
Then use the Debug - Compile...