Kopieer en transponeer meerdere CVS-bestanden in batch naar één Excel-samenvatting

Dag Allemaal,

Dit is mijn eerste vraag op dit forum omdat ik een echte head scratcher tegenkom..

Ik probeer een VB-code aan te passen, gepubliceerd op https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 om meerdere CVS-bestanden uit dezelfde map te importeren en ze getransponeerd in een enkel Excel-werkblad te plaatsen.

De bronbestanden bevinden zich allemaal in dezelfde map.
Er zijn 3 kolommen met gegevens in de bronbestanden, maar er hoeft slechts 1 kolom te worden geïmporteerd,
De geïmporteerde gegevens moeten worden getransponeerd en in de volgende lege rij op het doelwerkblad worden geplaatst.

Mijn gewijzigde code is zo rommelig dat ik hem hier niet eens wil plakken, maar je kunt twee voorbeeld-invoer-CVS-bestanden en een gewenst XLSX-uitvoerbestand bijgevoegd vinden.

Bedankt voor alle hulp bij voorbaat.