TAK JSEM SI NAKONEC PORADIL SÁM :)

zde je makro

Sub Makro1()

ActiveCell.Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Vypracování el. sch."
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "Benetka"
ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = InputBox("Za dvojtečku dej mezeru a vlož aktuální dautm", "Datum expedice:", "Datum expedice: ")

End Sub