Sheets("Broad").Range("B2:B & Sheets("Broad").UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
With Worksheets("Keywords")
.Cells(.Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial
Hier wird nur die Spalte ab B2 kopiert, aber ich will auch die Spalte P mitkopieren.Sheets("Broad").Range("B2:B,P2:P & Sheets("Broad").UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
Geht schonmal nicht.