Formatierungen löschen | Herbers Excel-Forum

Hallo,
ich will etwas ohne die Formatierungen in der anderen Tabelle kopieren. Hier mein Code:

Sub ()
Dim wks As Worksheet
'Excel Datei Kontaktdaten.xls öffnen
Set wks = Workbooks.Open(Filename:= _
"H:\-Pfad-\Datei.xls").Sheets("Sheet1")
'Benötigte Zellen kopieren und im Tabellenblatt "Kontakte" einfügen
'Kopieren aus Kundendaten
With wks
.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)).Resize(, 22).Copy
Workbooks("Data Generator.xls").Sheets("Kundenkontakte").Range("A18").PasteSpecial  _
Paste:=xlValues, _Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
End Sub