Μαζική αντιγραφή και μεταφορά πολλαπλών αρχείων CVS σε ένα συνοπτικό φύλλο Excel

Γεια σε όλους,

Αυτή είναι η πρώτη μου ερώτηση σε αυτό το φόρουμ, επειδή συναντώ μια πραγματική ξύστρα κεφαλής..

Προσπαθώ να προσαρμόσω έναν κώδικα VB, που δημοσιεύτηκε στο https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 για να εισαγάγετε πολλά αρχεία CVS από τον ίδιο κατάλογο και να τα τοποθετήσετε σε ένα μόνο φύλλο εργασίας του Excel.

Τα αρχεία προέλευσης βρίσκονται όλα στον ίδιο φάκελο.
Υπάρχουν 3 στήλες δεδομένων στα αρχεία προέλευσης, αλλά μόνο 1 στήλη πρέπει να εισαχθεί,
Τα εισαγόμενα δεδομένα πρόκειται να μεταφερθούν και να τοποθετηθούν στην επόμενη κενή σειρά στο φύλλο εργασίας προορισμού.

Ο τροποποιημένος κώδικας μου είναι τόσο ακατάστατος που δεν θέλω καν να τον επικολλήσω εδώ, αλλά μπορείτε να βρείτε δύο δείγματα αρχείων εισόδου CVS και ένα επιθυμητό αρχείο εξόδου XLSX.

Ευχαριστώ για όλη τη βοήθεια εκ των προτέρων.