Pregunta para Luismondelo: ayuda con agrupar CSV en un XLS

Te mando la solución y estas son las instrucciones:
- Guarda todos los CSV dentro de una misma carpeta, la que quieras

- En un archivo nuevo pega esta macro y luego grabas el archivo nuevo dentro de la misma carpeta.

- Después solo tienes que abrir el archivo nuevo de la macro y ejecutarla

Sub proceso()
'por luismondelo
mio = ActiveWorkbook.Name
ruta = ActiveWorkbook.Path & "\"
Set fso = CreateObject("scripting.filesystemobject")
Set carpeta = fso.getfolder(ruta)
For Each fichero In carpeta.Files
If fichero = ruta & mio Then GoTo salto
If fichero = ruta & "~$" & mio Then GoTo salto2
Workbooks.Open fichero, local:=True
otro = ActiveWorkbook.Name
Range("a1").CurrentRegion.Copy
Workbooks(mio).Sheets("hoja1").Range("a65000").End(xlUp).Offset(2, 0).PasteSpecial Paste:=xlValues
Workbooks(otro).Close False
salto:
Next
salto2:
ActiveSheet.Rows("1:2").Delete
End Sub

recuerda finalizar la consulta