Dringend: Zahlendreher bei Datumsübertrag

Auszug aus meinem Code:

'Formate übertragen
Application.ScreenUpdating = False
Workbooks("Report.xls").ActiveSheet.Range("B:Q").Copy
Workbooks("Export.xls").Activate
Sheets("Report").Unprotect Password:="sokrates"
Columns("A:P").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Cells(1, 1).Select
Application.ScreenUpdating = True
'Werte übertragen
With Sheets("Report")
.Unprotect Password:="sokrates"
.Range("A:P").Value = Workbooks("Report.xls").ActiveSheet.Range("B:Q").Value
.Cells(1, 1).Activate
End With

Für Lösungen wäre ich dankbar...
Gruss

Christian