I have the following macro

Sub Macro1()

With Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
.Value = .Offset(-1, 0).Value + 1
.Offset(0, 1).Resize(1, 2).Value = Range("D1:E1").Value
End With
End Sub

Each time I run the macro, it should copy the value from D1 & E1 to the last row in B & C. Its working but I have the following problem.

In "D1 &E1" I have two date and the date format is DD-MM-YY. The problem is When it copies to "B&C" the date changes. For example the date in "D1" is 04-01-05(which is 4th January 2005) but when it copies to "B" the date displayed as 01-04-05 (Which is 1st April 2005). I have the format DD-MM-YY in source and destination cells.
Hope it is clear and I need someone to help me to solve it
Thanks in advance
Toms