Sao chép hàng loạt và chuyển nhiều tệp CVS thành một bảng Excel tóm tắt duy nhất

Chào mọi người,

Đây là câu hỏi đầu tiên của tôi tại diễn đàn này bởi vì tôi bắt gặp một sự gãi đầu thực sự ..

Tôi đang cố gắng điều chỉnh mã VB, được xuất bản tại https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 để nhập nhiều tệp CVS từ cùng một thư mục và đặt chúng vào một trang tính Excel duy nhất.

Các tệp nguồn đều nằm trong cùng một thư mục.
Có 3 cột dữ liệu trong tệp nguồn, nhưng chỉ cần nhập 1 cột,
Dữ liệu đã nhập sẽ được hoán vị và đặt ở hàng trống tiếp theo trên trang tính mục tiêu.

Mã đã sửa đổi của tôi lộn xộn đến mức tôi thậm chí không muốn dán nó vào đây, nhưng bạn có thể tìm thấy hai tệp CVS đầu vào mẫu và tệp XLSX đầu ra mong muốn được đính kèm.

Cảm ơn tất cả sự giúp đỡ trước.