Hallo Excel-Fans

ich habe ein Makro mit dem Recorder aufgezeichnet

Sheets("mon").Select
Columns("A:J").Select
Selection.Clear
Range("A1").Select
Sheets("Kasse").Select
Selection.AutoFilter Field:=1, Criteria1:="Okt. 03" Range("E7:E200,G7:G200,I7:I200,K7:K200,M7:M200,O7:O200,Q7:Q200,R7:R200").Select
Range("R7").Activate
Selection.Copy
Sheets("mon").Select
Range("B15").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Kasse").Select
Selection.AutoFilter Field:=1
Range("E3").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("E2").Select
Sheets("mon").Select
Range("A15").Select
End Sub

Es geht um den Autofilter und das Kopieren
Beim aufzeichnen hat er selektiert und richtig kopiert
Wenn ich jetzt das Makro ausführe kopiert er aber alle Zeilen
Im Einzelschritt-Modus habe ich auch gesehen, das er gar nichts selektiertes anzeigt,
dann aber trotzdem alles kopiert
Wie kann ich das Problem beheben??? (im Filter sind Monate Sep,Okt usw)

Ich hoffe da kann mir einer helfen

Gruß
Bernd