Macro para cambiar rangos entre libros de una misma carpeta

Hace un tiempo me ayudaste con una macro que copiaba una hoja de un libro concreto y la pegaba en el resto de libros contenidos en una carpeta.

He usado tu macro modificandola para intentar cambiar un rango concreto desde el libro OK.xlsm a los libros que se van abriendo pero me da error en modo select Range en la línea h1. Range("S16:AB30").Select.

Sub MODIFICAR_RANGO_ENTRELIBROS()

Application.ScreenUpdating = False
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Portada")
carpeta = "D:\Seguimiento materiales\Graficos materiales\"
arch = Dir(carpeta & "*.xls*")
Do While arch <> ""
Application.DisplayAlerts = False
Set l2 = Workbooks.Open(carpeta & arch)
Set h2 = l2.Sheets("Portada")
h1.Range("S16:AB30").Select
Selecion.Copy
h2.Range("S16").Select
ActiveSheet.Paste
h1.Range("E45:N46").Select
Selecion.Copy
h2.Range("E45").Select
ActiveSheet.Paste
l2.Save
l2.Close False
arch = Dir()
Loop
MsgBox "Fin"
End Sub

Me podrías decir en qué me he equivocado.