Expertos tengo una macro para guardar una hoja pero tengo un problema

Expertos con una macro que copia y guarda una hoja, pero en la columna J cuando la copia existe una fecha pero no logro que conserve este formato me lo escribe como numero normal, les dejo la macro para vuestra ayuda.-

Public Sub copiahoja()
Sheets("Hoja1").Copy
Dim dia As String
Dim tim As String
Dim nom As String
Dim ext As String
Dim Path As String
dia = Format(Date, "dd-mm-yyyy ")
tim = Format(Time(), "H-MM-SS")
ext = ".xls"
nom = nom + " " + dia + " " + "Hora" + " " + tim & ".xls"
MsgBox "este es el nombre del archivo: CARTAS"" " & nom
Path = "d:\INFORME\CARTAS" & nom
ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlNormal
ActiveWorkbook.Close
End Sub