Nochmal Zellformatierung - immer noch keine Lösung

mit folgendem Makro kopiere ich Zellinhalte als Datensatz auf ein neues Tabellenblatt. Allerdings werden dadurch in der neuen Tabelle die Formatierungen überschrieben, dass heißt zum Beispiel wird das Euro-Zeichen nicht angezeigt wenn dort ein Wert reinkopiert wird. Klicke ich den Wert doppelt an und drücke dann Enter steht auf einmal das Euro-Zeichen dahinter. Kann sich mal einer mein Makro ansehen, vielleicht muß da ja noch irgendwas definiert werden. Hier also der Code:

Sub Copy_Item_User()
Dim WS1 As Worksheet, WS2 As Worksheet, WS3 As Worksheet
Dim LetzteZeile As Long
Set WS1 = Worksheets("Verkauft")
Set WS2 = Worksheets("Übernahme")
Set WS3 = Workbooks("Kunden.xls").Worksheets("Kunden")

With WS1
LetzteZeile = .[a65536].End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = WS2.[d23]
.Cells(LetzteZeile, 2) = WS2.[e23]
.Cells(LetzteZeile, 3) = WS2.[d20]
.Cells(LetzteZeile, 4) = WS2.[d26]
.Cells(LetzteZeile, 8) = WS2.[d2]
End With

With WS3
LetzteZeile = .[a65536].End(xlUp).Row + 1
.Cells(LetzteZeile, 1) = .[a65536].End(xlUp).Row
.Cells(LetzteZeile, 2) = WS2.[d2]
.Cells(LetzteZeile, 3) = WS2.[d5]
.Cells(LetzteZeile, 4) = WS2.[d8]
.Cells(LetzteZeile, 5) = WS2.[d11]
.Cells(LetzteZeile, 6) = WS2.[d14]
.Cells(LetzteZeile, 7) = WS2.[d17]
End With
End Sub

Viele Grüße und Dank im voraus

Ralf