Macro que abra varios libros

HOLA EXPERTOS:
deseo copiar datos de un libro a otro, lo que sucede con mi macro es que tengo unos códigos para cada libro, y el total de libros es de 40, ahora yo deseo usar 1 solo código para varios libros que se almacenan en una carpeta, y que copie los rango de los libros que se encuentren en esta carpeta, no importa si tengo 20 de 40 en esa carpeta, les mando un ejemplo

'ARIMETICA
Sheets (" 1BIM ") .Select
Application. ScreenUpdating = False
Workbooks. Open ThisWorkbook .Path & "\" & " S01-ARIT-1A-1BIM.xlsx " 'abre el registro
Windows ("S01-ARIT-1A-1BIM.xlsx").Activate
Range ("PROMEDIO_FINAL").Select 'selecciona el rango del registro
Selection.Copy
Windows ("1ro_A_Secundaria .xlsm ").Activate
Range ("D11").Select 'selecciona la celda para copiar las notas
Selection. PasteSpecial Paste: = xlPasteValues, Operation : = xlNone, SkipBlanks _
:=False, Transpose :=False
Range (" ESTADISTICA_ALUMNOS ").Select 'selecciona la celda en la boleta
Windows ("S01-ARIT-1A-1BIM.xlsx").Activate
Application. CutCopyMode = False
ActiveWorkbook.Close False