Añadir otra orden a una macro

No se ve la macro, la puedes poner otra vez.

Y puedes explicar con una imagen qué debe copiar la macro la semana1, qué debe copiar la macro la semana2, qué debe copiar la macro en la semana3, y en dónde de pegar los datos de cada semana

Ayer fui incapaz de que la web me dejara,

Sub COPIARPEGAR() 

'PARA DOS LIBROS  COPIAR Y PEGAR

Application.ScreenUpdating = False

Workbooks.Open Filename:="C:\Users\root\Desktop\ESCRITORIO\XXXXXXXXXX\XXXX\XXXXXXXXX.xlsm"

Sheets("XXXXX").Select

    Range("A22:A1030").Select

    Selection.Copy

    Windows("XXXXXXXXX.xlsm").Activate

    Range("A1").Select

    ActiveSheet.Paste

Workbooks("XXXXXXXXXXXXXXXXXXXXX.xlsm").Close Savechanges:=True 

End Sub

Bien, ya veo la macro, pero no explicaste esta parte:

Y puedes explicar con una imagen qué debe copiar la macro la semana1, qué debe copiar la macro la semana2, qué debe copiar la macro en la semana3, y en dónde de pegar los datos de cada semana

Perdona por las molestias, pero he decidido solucionarlo con vínculos y desde un libro con macro abro el otro y lo actualizo los datos, que en definitiva es el fin.

Salud2…