Fehler 1004

Hallo Experten,
ich will mit vba u.a. Daten von "Basis" gefiltert in Tabelle "HeimTeam" kopieren.
folgendes Script:

Dim wks As Worksheet
Application.ScreenUpdating = False
Worksheets("Kriterien").Range("N2:CY3").ClearContents 'enttfernt bisherige Kriterien-HeimTeam
Application.CutCopyMode = False
Set wks = ActiveWorkbook.Worksheets("HeimTeam")
With wks
'        .Activate
' prüft ob Filterfunktionen in HeimTeam vorhanden sind, vorhandene werden entfernt
If .AutoFilterMode Then
If .FilterMode Then .ShowAllData
.AutoFilterMode = False
End If
End With
' von Basis gefiltert nach HeimTeam
Sheets("Basis").Columns("A:J").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Kriterien").Range("A1:E3"), CopyToRange:=Range("A6:J6") _
, Unique:=False
Application.ScreenUpdating = True