Hello once again All,
well the Title says it all
Here my code:
Sheets("Anzahl_Kategorien_je_Kunde").Select
Dim PvData As Range
Dim PVLastRow As Longt
PVLastRow = Range("A" & Rows.Count).End(xlUp).Row
PvData = "'Anzahl_Kategorien_je_Kunde'!A1:H" & PVLastRow
Cells(1...