ActiveCell.FormulaR1C1 = " =SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXX)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXXXXX.)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXXXXXXX"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXX)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXX)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXX)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXXXXXX)"))

SUMPRODUCT(SUBTOTAL(3,OFFSET(R[4]C[-2]:R[14995]C[-2],ROW(R[4]C[-2]:R[14995]C[-2])-ROW(R[4]C[-2]),0,1)),--(R[4]C[-2]:R[14995]C[-2]="(XXXXX)"))"

Here is my code. Ignore the X's but I keep receiving compile errors and not sure whats going on. Can anyone help?

Thanks in advance