Error 1004. Macros Excel

HOLA, estoy tratando de hacer una
macro, que copie primeramente unas celdas de otra hoja y luego de esta, me
realice una suma condicional dada la función de suma matricial de unos datos
que se encuentran en esa hoja. La cuestión está en que necesito un registro
histórico y no se altere si cambio el valor de las celdas de la otra hoja,
entonces se me ocurrió, luego de correr la formula, copiar y pegar esos datos
como valores en ese mismo rango y seguir a la siguiente linea.

Cuando corro la macro me genera el
error 1004: "Error definido por la aplicación o el objeto"...
aquí copio el texto de la macro:
Sub DEMORAS()
'
' DEMORAS Macro
' Macro grabada el 07/02/2014 por SIDOR C.A
'
' Acceso directo: Ctrl+Mayus+D
'
Sheets("DEMORAS").Select
Range("A8").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Sheets("Reporte").Select
Range("B8:C8").Select
Selection.Copy
Sheets("DEMORAS").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 2).Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-1])*(Reporte!R8C3=DEMORAS!RC[0])*(Reporte!R47C9:R162C10=DEMORAS!R8C2)*Reporte!R47C12:R162C12)"
Range("c8").Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-2])*(Reporte!R8C3=DEMORAS!RC[-1])*(Reporte!R47C9:R162C10=DEMORAS!R8C3)*Reporte!R47C12:R162C12)"
Range("D8").Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-3])*(Reporte!R8C3=DEMORAS!RC[-2])*(Reporte!R47C9:R162C10=DEMORAS!R8C4)*Reporte!R47C12:R162C12)"
Range("E8").Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-4])*(Reporte!R8C3=DEMORAS!RC[-3])*(Reporte!R47C9:R162C10=DEMORAS!R8C5)*Reporte!R47C12:R162C12)"
Range("F8").Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-5])*(Reporte!R8C3=DEMORAS!RC[-4])*(Reporte!R47C9:R162C10=DEMORAS!R8C6)*Reporte!R47C12:R162C12)"
Range("G8").Select
Selection.FormulaArray = _
"=SUM((Reporte!R8C2=DEMORAS!RC[-6])*(Reporte!R8C3=DEMORAS!RC[-5])*(Reporte!R47C9:R162C10=DEMORAS!R8C7)*Reporte!R47C12:R162C12)"
Range("C8:G8").Select
Selection.Copy
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("TD Demoras").Select
Range("A4").Select
ActiveSheet.PivotTables("DEMORAS").PivotCache.Refresh
Sheets("DEMORAS").Select
Range("A8").Select
End Sub