Copie por lotes y transponga varios archivos CVS en una sola hoja de resumen de Excel

Hola a todos,

Esta es mi primera pregunta en este foro porque me encuentro con un verdadero rascador de cabeza...

Estoy tratando de adaptar un código VB, publicado en https://www.extendoffice.com/documents/excel/3388-excel-import-multiple-text-csv-xml-files.html#a2 para importar múltiples archivos CVS desde el mismo directorio y colocarlos transpuestos en una sola hoja de cálculo de Excel.

Los archivos de origen se encuentran todos en la misma carpeta.
Hay 3 columnas de datos en los archivos de origen, pero solo se necesita importar 1 columna,
Los datos importados deben transponerse y colocarse en la siguiente fila vacía en la hoja de cálculo de destino.

Mi código modificado es tan complicado que ni siquiera quiero pegarlo aquí, pero puede encontrar dos archivos CVS de entrada de muestra y un archivo XLSX de salida deseado adjunto.

Gracias por toda la ayuda de antemano.