Excel mehrere Dokumente sinnvoll konsolidieren ohne VBA oder PS

Sub Konsolidieren()
    Dim Quelle As Object, Ziel As Object, ZielFiles As Object
    Dim cGlobal As Long
    Dim cCells As Long
    Dim cFiles As Long
    Dim rangeS As String
    Dim rangeD As String
    Dim noFiles As Long
    Dim noCells As Long
    Dim cleaned As Long
    Dim ccleaned As Long
    Dim path As String
    
    
    
     


    Set Ziel = ThisWorkbook.Worksheets("Sheet1")
    Set ZielFiles = ThisWorkbook.Worksheets("dateien")
    noFiles = 0
    cGlobal = 4
    cFiles = 1
    ccleaned = 4
    cleaned = 0
    
    Do
        If Ziel.Cells(4, 1).Value = "" Then
            cleaned = 1
		Else

            Ziel.Rows(4).Delete xlShiftUp
            ccleaned = ccleaned + 1
        End If
    
    Loop Until cleaned > 0
    
    Application.Wait Now + TimeSerial(0, 0, 10)
    
    Do
        path = ZielFiles.Cells(cFiles, 1).Value
        If path = "" Then
            noFiles = 1
        Else
            Set Quelle = Workbooks.Open(Filename:=path)
            cCells = 4
            noCells = 0
            Do
                If Quelle.Worksheets("Sheet1").Cells(cCells, 1).Value = "" Then
                    noCells = 1
                Else
                    For Each MyName In Ziel.Names
                        MyName.Delete
                    Next MyName
                    rangeS = "A" & cCells & ":CF" & cCells
                    rangeD = "A" & cGlobal & ":CF" & cGlobal
                    Quelle.Worksheets("Sheet1").Range(rangeS).Copy
                    For Each MyName In Ziel.Names
                        MyName.Delete
                    Next MyName
                    Ziel.Range(rangeD).PasteSpecial Paste:=xlPasteAll
                    For Each nName In Ziel.Names
                        If InStr(1, nName.Name, "myNames") > 0 Then
                            nName.Delete
                        End If
                    Next nName
                    For Each nName In ThisWorkbook.Names
                        If InStr(1, nName.Name, "myNames") > 0 Then
                            nName.Delete
                        End If
                    Next nName
                    cCells = cCells + 1
                    cGlobal = cGlobal + 1
                End If
                For Each MyName In Ziel.Names
                    MyName.Delete
                Next MyName
            Loop Until noCells > 0
            Quelle.Close
        End If
        cFiles = cFiles + 1
    Loop Until noFiles > 0

     

End Sub