Ciao,
prova così:

codice:
.Cells(cn, 1) = Format(Date, "dd/mm/yy")
Ovviamente al posto dello "/" puoi mettere il separatore xhe vuoi.

Ciao
Gugu