Vagy kicsit egyszerűbben:

Sheets("Nyomtatáslista").Range("A" & Rows.Count).End(xlUp).Offset(1) = Date