Pro zapisování údajů nemusíš nastavovat Range a označovat buňky.
Offset budeš postupně navyšovat (0, 1), (0, 2), (0, 3)
Pozor na vzorec =Today(), protože tím, že tam vložíš vzorec, tak tam budeš mít pokaždé aktuální datum. To nechceš. Musíš tam vložit hodnotu.
ActiveCell.Offset(0,1).Value=Date
ActiveCell.Offset(0,2).Value="Vypracování el. sch."
....
A ještě bys měl ošetřit to, že to nebudeš vyplňovat pokaždé, ale jen poprvé, dokud to nebude vyplněné