VBA gefilterter Bereich Kopieren

Sub CopyPaste()
Dim columns As Range
Dim rows As Range
'Daten von Urspunrgsexcel Datei filtern, kopieren
Windows("1. NC - NCs (offen) (41)").Activate
Sheets("1. NC - NCs (offen) (41)").Select
'die ersten 4 Zeilen löschen
Set rows = Range("1:4")
rows.Delete
'Verschiedene Spalten löschen
Set columns = Range("A:B,E:F,H:H,J:N,P:P")
columns.Delete
'Filter setzen und nach den FT's filtern
ActiveSheet.Range("A:E").AutoFilter Field:=3, Criteria1:=Array( _
"Berisha, Ronand (413536)", _
"Sciacca, Ignazio (413149)", _
"Sienicki, Pascal"), _
Operator:=xlFilterValues
' Sortieren
ActiveWorkbook.Worksheets("1. NC - NCs (offen) (41)").AutoFilter.Sort. _
SortFields.Clear
ActiveWorkbook.Worksheets("1. NC - NCs (offen) (41)").AutoFilter.Sort. _
SortFields.Add Key:=Range("D1:D985"), SortOn:=xlSortOnValues, Order:= _
xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("1. NC - NCs (offen) (41)").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Copy

'Auswertungsfile aktivieren und copieren
Workbooks("NC-Tracking").Worksheets("Controll").Range("A2").PasteSpecial
End Sub