Adding current date in next empty cell

Hello,

could you help me with this please?

Is it possible to use macro-code that adds current date in wanted cell, and day after in the cell next to it.

Like this;

I run the macro, it adds todays date in cell AN23, tomorrow I run the code again, it adds tomorrows date in cell AO23, day after AP23 etc etc.

Thanks in advance!