Excel VBA - Zeilen aus verschiedenen Tabellenblättern unter Bedingung in ein neues Tabellenblatt kopieren

Sub CopyMultiple()
    Dim sh As Worksheet
    Dim shDestination As Worksheet
    Dim iLast As Long
    Dim rngCopy As Range
    Dim i As Integer

    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With

    Set shDestination = ActiveWorkbook.Worksheets("Tabelle2")  

    For Each sh In ActiveWorkbook.Worksheets

'Tabellenblätter mit nicht benötigten Daten (ausgeschlossen vom Kopiervorgang)          
If IsError(Application.Match(sh.Name, _
                                     Array("Main", "Users", "HelpSheet", "Processed"), 0)) Then  


            iLast = Worksheets("Tabelle2").Cells(Cells.Rows.Count, "A").End(xlUp).Row  
            LastRow = sh.Cells(Cells.Rows.Count, "X").End(xlUp).Row  
            
            Set rngCopy = sh.Range("A3:X" & LastRow)  

            If iLast + rngCopy.Rows.Count > shDestination.Rows.Count Then
                MsgBox "Zu wenig Platz zum kopieren"  
                GoTo ExitTheSub
            End If

            rngCopy.Copy
            With shDestination.Cells(iLast + 1, "A")  
                .PasteSpecial xlPasteValues
                .PasteSpecial xlPasteFormats
                Application.CutCopyMode = False
            End With

        End If
    Next

ExitTheSub:

    Application.Goto shDestionation.Cells(1)


    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
End Sub