Necesito copiar un rango de varios ficheros a otro diferente, estoy usando esta macro pero necesito copiar solo valores

Necesito copiar un rango de varios ficheros a otro diferente, estoy usando esta macro pero necesito copiar solo valores, no fórmulas

Sub libros()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set l1 = ThisWorkbook
ruta = ThisWorkbook.Path & "\"
archi = Dir(ruta & "*.xls*")
Set h1 = l1.Sheets("Summary")
j = 4
Do While archi <> ""
If archi <> l1.Name Then
Set l2 = Workbooks.Open(ruta & archi)
Set h2 = l2.Sheets(9)
h2.Range("E8:AB8").Copy h1.Range("E" & j)
j = j + 1
l2.Close
End If
archi = Dir()
Loop
MsgBox "Fin"
End Sub