Esta macro te servirá. Sigue mis instrucciones:
-En un archivo nuevo de excel pega esta macro en un módulo de VBA.
-En la primera pestaña de este libro pon los encabezados de nuestro informe en el rango A1:C1 (cliente - importe - vendedor)
-Muy importante: tienes que cambiar en la macro el texto que he puesto en negrita que hace referencia al path donde guardas todos los ficheros de las facturas en mi ejemplo es este:"C:\Users\Luis\Documents\" tendrás que cambiarlo por el tuyo y deja la comillas y la barra del final.
-También he supuesto que tus facturas están creadas en la primera pestaña de cada archivo.
-Después de todo esto solo queda que ejecutes la macro.
(Recuerda finalizar y puntuar mi trabajo por favor)
Sub hacer_informe()
informe = ActiveWorkbook.Name
ChDir "C:\Users\Luis\Documents\"
archi = Dir("*.xls*")
Do While archi <> ""
Workbooks.Open archi
otro = ActiveWorkbook.Name
Workbooks(informe).Activate
filalibre = Sheets(1).Range("a65000").End(xlUp).Row + 1
Cells(filalibre, 1).Value = Workbooks(otro).Sheets(1).Range("a7")
Cells(filalibre, 2).Value = Workbooks(otro).Sheets(1).Range("f10")
Cells(filalibre, 3).Value = Workbooks(otro).Sheets(1).Range("c3")
Workbooks(otro).Close False
archi = Dir()
Loop
End Sub