Workbooks("xxxx.xls").Worksheets("Tabelle1").Range(spn & zz & ":" & spb & i).Copy
With Workbooks("xxxxxx.xlsm").Worksheets("DataImport").Range("A"(xLetzteZeile + 1))
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' Werte
End With
An dieser Stelle: Range("A"(xLetzteZeile + 1))