Nekomplikuj si život

Sub AutDoplneni()

    If ActiveCell.Column <> 1 Then
        MsgBox "Nenacházíš se v správné buňce!", vbExclamation, "Upozornění"
        Exit Sub
    End If
    
    With ActiveCell
        .Offset(0, 1) = Date
        .Offset(0, 2) = "Vypracování el.sch."
        .Offset(0, 3) = "Benetka"
        .Offset(0, 5) = "Datum expedice: " & InputBox("Vlož aktuální datum")
    End With
    
    Columns("A:F").EntireColumn.AutoFit

End Sub

P.S.

a)
Nie je jasné, čo myslíš tým doplnením aktuálneho dátumu, lebo "aktuálny" je dnešný a teda by sa pre stĺpec F nemusel pýtať InputBox-om ale tiež vložiť "= Date"
Ale potom čo za dátum bude v stĺpci "B" keďže aj tam si chcel pôvodne dať dnešný dátum funkciou TODAY.

b)
Píšeš "Novák" ale dávaš tam "Benetka"... tak ako?

c)
Dal som Ti tam kontrolu, či si nastavený v bunke stĺpca "A", lebo inak by sa to posunulo inam a tiež som doplnil automatické prispôsobenie šírok stĺpcov...

d)
Makro sa dá doplniť na blbuvzdornejšie, napr. kontrolou, či sa InputBoxom zadal skutočný dátum a pod, ale problematika dátumu je otázna, v zmysle bodu a)