Szia,

 

Nem teljesen tiszta mit akarsz, de azért megpróbálok segíteni...

Ahhoz, hogy be tudd írni a soron következő cellába a dátumot, tudnod kell melyik az utolsó sor/cella, ami már ki van töltve.

Ezt a következő képlettel kahatod meg:

 

Sor=Range("A1").End(xlDown).Row

A soron következő cellába így írhatod be a dátumot:

 

Sheets("Nyomtatáslista").Cells(Sor + 1, 1) = Now(), ahol a Sor+1 a sorszám, az 1 pedig az oszlop száma ("A" az első oszlop)

 

Üdv: Sznidó