makro pro aktuální datum

Tak týmto makrom vložíš aktuálny dátum (každý den bude iný-aktuálny dátum) do aktuálnej bunky.
Myšou klepneš na bunku a spustíš makro. Na spustenie makra si môžeš priradiť klávesovú skratku.

Sub Makro()

'Vloženie funkcie "=DNES" "=TODAY()"
    ActiveCell.FormulaR1C1 = "=TODAY()"
'úprava aktuálnej bunky na obyčajnú hodnotu (zrušenie funkcie)
'a to skopírovaním aktuálnej bunky a vloženie iba hodnoty.
    ActiveCell.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

PS - toho ohraničenia bunky sa nelakaj to je výberom pre kopírovanie.
PS2 - to takto na rýchlo bez nejakého rozmýšlania - ber to ako jeden nápad pre tvoju inšpiráciu.

Niet nič čo by nešlo zjednodušiť. Ovládanie rovnaké.

Sub MakroDatum()

'Vloženie aktuálneho dátumu
    ActiveCell.FormulaR1C1 = Date

End Sub

SORRY za predošlé zložité makro.
Človek sa neustále učí.