Error en el método copy de la clase range

En una macro que tengo para importar datos de un libro a otro, me sale un error de método copy .

Tengo que decir que esta misma macro la tengo en un libro solo con la hoja donde trabaja la macro y no me da problemas. Pero al pasarla al libro en la que tengo más hojas me arroja el error mencionado.

With wbOr.Sheets("EPYC")
.Range("A8:F78"). Copy wbDes. Sheets("Personal"). Range("A8:F78")
. Range("F2"). Copy wbDes. Sheets("Personal"). Range("G3")
. Range("I2"). Copy wbDes. Sheets("Personal"). Range("H3")

Sub MetodoAbrirLibro()
Dim rngCopy As Range, rngOT1 As Range, cel As Range, adres$
Dim wbOr As Workbook, wbDes As Workbook
Application.ScreenUpdating = False
Set wbOr = ThisWorkbook
Set wbDes = Workbooks.Open("C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls")
With wbOr.Sheets("EPYC")
    .Range("A8:F78").Copy wbDes.Sheets("Personal").Range("A8:F78")
    .Range("F2").Copy wbDes.Sheets("Personal").Range("G3")
    .Range("I2").Copy wbDes.Sheets("Personal").Range("H3")
    Set rngOT1 = .Range("A:M")
    Set rngCopy = Intersect(rngOT1, Union(.Range("H2"), .Range("H3"), .Range("l2"), .Range("G8:H78"), .Range("J8:K78"), .Range("M8:M78")))
    For Each cel In rngCopy
        adres = cel.Address
        wbDes.Sheets("OT1").Range(adres).FormulaR1C1 = cel.Text
Next cel
End With
Application.CutCopyMode = False
End Sub