Queremos combinar los tres ficheros Excel que tenemos ubicados en la dirección: F:\aaa\combinar\ en un único libro Excel.

Empezamos por abrir un nuevo libro Excel habilitado para macros, por ejemplo, combinar.xlsm, como ves en la imagen debajo.

Abrimos el editor de Visual Basic con la combinación de teclas: ALT + F11, y una vez abierto, navegamos a la pestaña Insertar -> Módulo, como se ve en la siguiente imagen.

Seguidamente escribimos el siguiente código:

Sub combinarlibros
Path = "f:\aaa\combinar\"
Filename = Dir(Path & "*.xls*")
Do while Filename <> ""
Workbooks.Open Filename:=Path & Filename, Readonly:=True
For each Sheet in ActiveWorkbook.Sheets
Sheet.copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks (Filename).Close
Filename = Dir()
Loop
End Sub

tal y como vemos en la siguiente imagen:

ejecutamos el código pulsando la tecla F5.