Disregarding the actual formula, it needs to be applied to the ActiveCell AS
WELL AS
the second, third, and fourth columns to the right ...

ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-3]C:R[-1]C)+R[-4]C"

Is there an array that will select - paraphrased - ActiveCell.Offset r-0
c-0,2,3,4, or something like that??

Any assistance is greatly appreciated.
Regards,
- Mike