Inhalte aus Excel-Dateien in Sammeldokument kopieren mittels Makro?

Ziel des Makros soll es sein Daten aus ca. 150 unterschiedlichen einzelnen Excel-Sheets (die alle gleich aufgebaut sind) in eine große Sammeldatei zusammenzufassen. Dabei geht es jeweils immer nur um die 2. Zeile der Daten (also ohne Spaltenüberschrift), die aus mehreren Spalten (Name, Vorname, Präferenz 1, Präferenz 2 etc.) besteht. Es sollen also die jeweiligen Daten übernommen werden und untereinander in ein Sammeldoc eingetragen werden. Bisher existieren diese ca. 150 verschiedenen Dateien noch nicht.

Die Dateien werden dann (sie werden im zuge eines Bewerbungsverfahrens per Mail zugeschickt) alle zusammen an einem Ort gespeichert werden (Frage: Muss die "Sammeldatei" und die Quelldateien im gleichen Ordner gespeichert werden oder ist es besser in verschiedenen Ordnern? Wie müssen die Datenblätter benannt werden, damit es möglichst einfach ist, oder dürfen die auch ganz unterschiedlich heissen (was am besten wäre)?). Ich kann also die Rahmenbedingungen teilweise noch gestalten und suche nun nach einem Makro, das relativ einfach ist. Ich hoffe, diejenigen die ich bisher gefunden habe sind zu komplex für mein Problem. Außerdem sagen sie mir nicht viel (Eine kurze Erklärung darüber, wo ich dann den entsprechenden Pfad oder Dateinamen oder sonstiges eintragen muss, wäre also TOP)

Ich hoffe, meine Frage löst jetzt kein mega-Gelächter aus und auch keinen Zorn!
Ich sage schon jetzt ein riesiges Dankeschön!
Liebe Grüße
Eva

Nachtrag: Jetzt habe ich mittlerweile etwas rumprobiert und hab mal das eingegeben:


Dann erscheint mir die Fehlermeldung: "Fehler beim Komplieren: Argument ist nicht optional" (ich denke das hat irgendwas mit dem letzten Befahl zu tun der die Datei speichern soll.
Ach ja, die Vorlage hab ich übrigends von hier: Excel Makro - Daten aus mehreren Tabellen in einer neuen Tabelle zusammenfassen)

Wer kann den helfen, bitte? Was ist falsch?
Grüße

Sub Sammeln()
sQuellpfad = "C:\...\Bewerbungen-Test"  

QZeile = 2 'Zeile in Quelldatei  
QSpalten = 12 'Spaltenanzahl  
QSpalteAb = "A" ' ab dieser Spalte insgesamt "QSpalten" Spaltenwerte übernehmen  

ZZeile = 2 'erste Zeile in Zieldatei  
ZSpalteAb = "A" 'erste Spalte in Zieldatei  

Set wbGes = ActiveWorkbook
Set fso = CreateObject("Scripting.FileSystemObject")  

For Each oFile In fso.GetFolder(sQuellpfad).Files
    If LCase(Right(oFile.Name, 4)) = ".xls" Then 'nur ".xls"-Dateien verarbeiten; bei ".xlsx" natürlich die letzten 5 Zeichen vergleichen  
        Application.Workbooks.Open oFile.Path 'Quelldatei öffnen  
        'Zellen lt Vorgabe aus Quelldatei lesen und in aktuelle Zeile der Zieldatei schreiben  
        wbGes.Worksheets(1).Cells(ZZeile, ZSpalteAb).Resize(1, QSpalten).Value = ActiveWorkbook.Worksheets(1).Cells(QZeile, QSpalteAb).Resize(1, QSpalten).Value
        ActiveWorkbook.Close False 'Quelldatei schließen  
        ZZeile = ZZeile + 1 'Zeilennummer Zieldatei erhöhen  
    End If
Next

wbGes.Save 'Zieldatei speichern  
End Sub

If LCase(Left(fso.GetExtensionName(oFile.Name), 3)) = "xls" Then