Innerhalb bestehender Excel Datei bestimmte Tabellenblätter per VBA zusammenfügen

Sub MergeData()
    Dim arrSheets As Variant, intOffset As Integer, rngEmpty As Range, ws as Variant
    ' Name des Tabellenblattes in dem die Daten zusammengefasst werden  
    Const TARGET = "Merged"  
    ' Name der Tabellenblätter im Array auflisten  
    arrSheets = Array("Tab1", "Tab3")  
    
    With Sheets(TARGET)
        'Blatt hat bereits Inhalt ? Setze Offset für Überschriften  
        intOffset = IIf(.Range("A1").Value <> "", 1, 0)  
        'Alle Sheets im Array verarbeiten und Daten kopieren  
        For Each ws In arrSheets
            Sheets(ws).UsedRange.Offset(intOffset, 0).Copy Destination:=.Cells(Rows.Count, "A").End(xlUp).Offset(intOffset, 0)  
            intOffset = 1
        Next
        'Leere Zeilen löschen  
        For Each cell In .Range("A1:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            If cell.Value = "" Then  
                If rngEmpty Is Nothing Then
                    Set rngEmpty = cell.EntireRow
                Else
                    Set rngEmpty = Union(rngEmpty, cell.EntireRow)
                End If
            End If
        Next
        If Not rngEmpty Is Nothing Then
            rngEmpty.Delete
        End If
    End With
End Sub