VBA "copy-paste" funktioniert nicht

[Michael123]

Hallo zusammen,
vorab sage ich gleich mal dass ich mich mit VBA nicht so gut auskenne.
Ich habe eine Datei mit mehreren Sheets ( die im Aufbau identisch sind), in denen haufenweise Formeln sind. Diese gehören täglich  in Werte umgewandelt, da sich die Dateien, aus deren die Formeln ihre Daten beziehen, laufend ändern.
Bis jetzt waren es 4 Sheets und das Makro lief einwandfrei.
Jetzt ist ein 5. Sheet dazu gekommen ( "KB"). Der Vorgang ist laut VBA der selbe, aber bei der Ausführung wird im 5. Sheet etwas anderes in einem anderen Bereich gemacht.
Hat hierfür jemand eine Erklärung?

Danke schon mal vorab für eure Hilfe
Gruß Michael


    Sheets("M51").Select
    Dim zelle As Range
    Dim mySelection As Range
    Set mySelection = Selection
    Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$JA$2915").AutoFilter Field:=1, Criteria1:="="
       
    Sheets("M6").Select
    Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="
   
    Sheets("M7").Select
     Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="
   
    Sheets("M8").Select
     Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$IZ$2853").AutoFilter Field:=1, Criteria1:="="
   
     Sheets("KB").Select
    Range(Cells(mySelection.Row + 91, mySelection.Column - 15), Cells(mySelection.Row + 91, mySelection.Column + 260)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$JA$2853").AutoFilter Field:=1, Criteria1:="="