Macro para extraer información de varios libros

Estoy haciendo un archivo de excel que va a consultar 52 libros diferentes (por las 52 semanas del año) es un hecho que no existen los 52 siempre y en eso necesito ayuda.

El libro tiene 5 hojas con sus nombres cada una y en cada hoja hay una tabla como esta:

Los datos los busca esta macro:

Sub SEMANA_N2()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    '***CONSULTAS SEMANAS***
    'SEM 40
    Workbooks.Open Filename:=("\\192.168.100.11\Gratificaciones Pelzer\PG OEE\OEE UNIDAD 2\NAVE 2\40\OEE N2.xlsm"), ReadOnly:=True
    Sheets("CALCULO N2").Select
    Range("RES_N2").Select
    Selection.Copy
    Windows("CONSULTAS.xlsm").Activate
    Sheets("N2").Select
    Range("b3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Windows("OEE N2.xlsm").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Close savechanges:=False
    On Error GoTo Ultimo

Ahora bien, necesito extraer los datos de 52 libros al año pero no estar metiendo codigo cada vez que sea una semana nueva, el detalle es que los libros en donde esta la informacion se encuentran en diferentes ubicaciones y lo ideal seria que esa informacion la pegue en el numero de semana que corresponde en la tabla y no estar poniendo el rango en donde se debe pegar manualmente ya que esto se tiene que repetir en las 5 hojas del libro en 3 libros diferentes.

El otro problema es que al no encontrar un libro por ejemplo el 41 genera un aviso y lo ideal es que el usuario no vea esto por que pensara que algo anda mal, entonces podria ser algo asi: buscar en libro semana 1 y copiar y pegar datos en la tabla, buscar en libro semana 2 y si no existe el libro entonces finalizar la macro.