look at this line:
ActiveCell.FormulaR1C1 = "=IF(SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) = 0, """", SUMIF($Q$8:$Q$469,Q8,$P$8:$P$469) )"
on the left side, reference style is R1C1, on the right side is another reference style

R1C1 reference style looks like this: ActiveCell.FormulaR1C1 = "=R[-3]C[-1]-R[6]C[-1]"
you should use: ActiveCell.Formula ="your formula" to match the formula reference style