VBA Excel, Copia de Celdas (fórmulas) entre libros, sin ruta de ubicación

Estoy iniciando en el VBA de Excel y estoy intentando hace una macro que me permita copiar celdas con fórmulas entre 2 libros de excel. Mi problema radica es que si hago la copia con "Copy" y "Paste", me pega la ruta de acceso al archivo original, ya intente copiar la fórmula con el texto pero me marca un error que no logro entender por que no funciona.

Les anexo el código como mayor referencia, ojala y me puedan apoyar.

Sheets("AFMa").Select
ActiveWindow.SmallScroll Down:=-40
Range("E54").Select
Workbooks(2).Activate
Sheets("IFTa").Select
ActiveSheet.Unprotect Password:="almarojosa"
Sheets("AFMa").Select
ActiveSheet.Unprotect Password:="almarojosa"
ActiveWindow.SmallScroll Down:=35
Range("E54").Select
Workbooks(1).Activate
Selection.Copy
Workbooks(2).Activate
ActiveCell.FormulaR1C1 = _
"=IF(OR(R6C3=""ENERO"",R6C3=""FEBRERO""),CONCATENATE(VLOOKUP(R7C2,IFTa!R75C20:R141C23,4,0),"" de "",IF(R19C3=""I"",IFTa!R[-24]C[12],IF(R19C3=""II"",IFTa!R[-24]C[11],IF(R19C3=""III"",IFTa!R[-24]C[10],IFTa!R[-24]C[9]))),IF(OR(R6C3=""ABRIL"",R6C3=""MAYO""),CONCATENATE(VLOOKUP(R7C2,IFTa!R75C26:R141C29,4,0),"" de "",IF(R19C3=""I"",IFTa!R[-24]C[17],IF(R19C3=""II"",IFTa!R[-" & _
",IF(R19C3=""III"",IFTa!R[-24]C[15],IFTa!R[-24]C[14]))),IF(OR(R6C3=""JULIO"",R6C3=""AGOSTO""),CONCATENATE(VLOOKUP(R7C2,IFTa!R75C32:R141C35,4,0),"" de "",IF(R19C3=""I"",IFTa!R[-8]C[12],IF(R19C3=""II"",IFTa!R[-8]C[11],IF(R19C3=""III"",IFTa!R[-8]C[10],IFTa!R[-8]C[9]))),IF(OR(R6C3=""OCTUBRE"",R6C3=""NOVIEMBRE""),CONCATENATE(VLOOKUP(R7C2,IFTa!R75C38:R141C41,4,0),"" de ""," & _
"""I"",IFTa!R[-8]C[17],IF(R19C3=""II"",IFTa!R[-8]C[16],IF(R19C3=""III"",IFTa!R[-8]C[15],IFTa!R[5]C[14]))),""""),"""")))),"""")),"""")"
ActiveWindow.SmallScroll Down:=30
Range("G91").Select
Workbooks(1).Activate
ActiveWindow.SmallScroll Down:=30
Range("G91").Select
Application.CutCopyMode = False
Selection.Copy
Workbooks(2).Activate
ActiveSheet.Paste
Range("G92").Select
Workbooks(1).Activate
Range("G92").Select
Application.CutCopyMode = False
Selection. Copy
Workbooks(2). Activate
ActiveSheet. Paste

La sección en negritas es donde me marca el error.