Excel: Script zum Suchen eines Begriffs in mehreren Excel Dateien und übertragen mehrerer Zeilen in aktueller Datei

Sub SearchAndCopyData()
    'Variablen  
    Dim fso As Object, strFind As String, wsTarget As Worksheet, file As Object, sh As Worksheet, rngCol As Range, c As Range, firstAddress As String, dblKosten As String, strFolder As String, strHeader As Variant
    
    'Ordner in dem sich die xlsx-Dateien befinden (im Beispiel der aktuelle Pfad in dem sich diese Mappe befindet)  
    strFolder = "Projekt Pfad"  
    
    'Objekte  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    
    'Sheet festlegen in das die Daten kopiert werden  
    Set wsTarget = Sheets(1)
    
    'Eingabeaufforderung für die Nummer  
    strFind = InputBox("Bitte geben sie den Projektnamen an:", "Projektname suchen", "Projekt123")  
    If strFind <> "" Then  
        'Screenflicker und Dialoge unterdrücken  
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        
        'Ausgabebereich löschen  
        wsTarget.Range("A2:X10000").Clear  
        
        'Für jede Datei im Ordner ...  
        For Each file In fso.GetFolder(strFolder).Files
            'Wenn es eine 'xlsx' Datei ist  
            If LCase(fso.GetExtensionName(file.Name)) = "xlsx" Then  
                'Mappe öffnen  
                Set wbSearch = GetObject(file.Path)
                ' Alle Sheets der Datei durchsuchen  
                For Each sh In wbSearch.Sheets
                    With sh.UsedRange
                        'Suche Spaltenüberschrift 'Target'  
                        For Each strHeader In Array("Target")  
                            Set rngCol = sh.UsedRange.Find(strHeader, LookIn:=xlValues, LookAt:=xlWhole)
                            If Not rngCol Is Nothing Then Exit For
                        Next
                        'Wurde eine der Spalten gefunden, suche Projektname  
                        If Not rngCol Is Nothing Then
                            Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlWhole)
                            If Not c Is Nothing Then
                                firstAddress = c.Address