Hello all,

Trying to utilize some longish formulas within a macro, but getting the '1004' error. Does anyone have an idea what's going wrong? The formula itself, when entered manually, works fine.

Range("R3").FormulaR1C1 = "=IF(COUNTBLANK(B3:Q3)=16,"",(IF(ISNUMBER(B3),B3*B$1,0))-(IF(ISNUMBER(C3),C3*B$1,0))+(IF(ISNUMBER(D3),D3*D$1,0))-(IF(ISNUMBER(E3),E3*D$1,0))+(IF(ISNUMBER(F3),F3*F$1,0))-(IF(ISNUMBER(G3),G3*F$1,0))+(IF(ISNUMBER(H3),H3*H$1,0))-(IF(ISNUMBER(I3),I3*H$1,0))+(IF(ISNUMBER(J3),J3*J$1,0))-(IF(ISNUMBER(K3),K3*J$1,0))+(IF(ISNUMBER(L3),L3*L$1,0))-(IF(ISNUMBER(M3),M3*L$1,0))+(IF(ISNUMBER(N3),N3*N$1,0))-(IF(ISNUMBER(O3),O3*N$1,0))+(IF(ISNUMBER(P3),P3*P$1,0))-(IF(ISNUMBER(Q3),Q3*P$1,0)))"
    lastrow = Range("A1048576").End(xlUp).Row
    Selection.AutoFill Destination:=Range("R3:R" & lastrow)
    Range("AE3").FormulaR1C1 = "=IF(COUNTBLANK(S3:AD3)=12,"",(IF(ISNUMBER(S3),S3*S$1,0))-(IF(ISNUMBER(T3),T3*S$1,0))+(IF(ISNUMBER(U3),U3*U$1,0))-(IF(ISNUMBER(V3),V3*U$1,0))+(IF(ISNUMBER(W3),W3*W$1,0))-(IF(ISNUMBER(X3),X3*W$1,0))+(IF(ISNUMBER(Y3),Y3*Y$1,0))-(IF(ISNUMBER(Z3),Z3*Y$1,0))+(IF(ISNUMBER(AA3),AA3*AA$1,0))-(IF(ISNUMBER(AB3),AB3*AA$1,0))+(IF(ISNUMBER(AC3),AC3*AC$1,0))-(IF(ISNUMBER(AD3),AD3*AC$1,0)))"
    lastrow = Range("A1048576").End(xlUp).Row
    Selection.AutoFill Destination:=Range("AE3:AE" & lastrow)
    Range("AT3").FormulaR1C1 = "=IF(COUNTBLANK(AF3:AS3)=14,"",(IF(ISNUMBER(AF3),AF3*AF$1,0))-(IF(ISNUMBER(AG3),AG3*AF$1,0))+(IF(ISNUMBER(AH3),AH3*AH$1,0))-(IF(ISNUMBER(AI3),AI3*AH$1,0))+(IF(ISNUMBER(AJ3),AJ3*AJ$1,0))-(IF(ISNUMBER(AK3),AK3*AJ$1,0))+(IF(ISNUMBER(AL3),AL3*AL$1,0))-(IF(ISNUMBER(AM3),AM3*AL$1,0))+(IF(ISNUMBER(AN3),AN3*AN$1,0))-(IF(ISNUMBER(AO3),AO3*AN$1,0))+(IF(ISNUMBER(AP3),AP3*AP$1,0))-(IF(ISNUMBER(AQ3),AQ3*AP$1,0))+(IF(ISNUMBER(AR3),AR3*AR$1,0))-(IF(ISNUMBER(AS3),AS3*AR$1,0)))"
    lastrow = Range("A1048576").End(xlUp).Row
    Selection.AutoFill Destination:=Range("AT3:AT" & lastrow)
    Range("AY3").FormulaR1C1 = "=IF(COUNTBLANK(AU3:AX3)=4,"",(IF(ISNUMBER(AU3),AU3*AU$1,0))-(IF(ISNUMBER(AV3),AV3*AU$1,0))+(IF(ISNUMBER(AW3),AW3*AW$1,0))-(IF(ISNUMBER(AX3),AX3*AW$1,0)))"
    lastrow = Range("A1048576").End(xlUp).Row
    Selection.AutoFill Destination:=Range("AY3:AY" & lastrow)
Thanks for the help!