Sub test()
ActiveCell.FormulaR1C1 = _
    "=IF(AND(NOT(R[-3]C[-2]=""All""),NOT(R[-3]C[-1]=""All"")),COUNTIFS('TS Data'!R[-3]C[-1]:R[59995]C[-1],"">=""&R[-3]C[-4],'TS Data'!R[-3]C[-1]:R[59995]C[-1],""<=""&R[-3]C[-3],'TS Data'!R[-3]C[10]:R[59995]C[10],R[-3]C[-2],'TS Data'!R[-3]C[9]:R[59995]C[9],R[-3]C[-1],'TS Data'!R[-3]C[5]:R[59995]C[5],""Yes""),IF(AND(R[-3]C[-2]=""All"",NOT(R[-3]C[-1]=""All"")),COUNTIFS('TS Data'!R[-3]C[-1]:R[59995]C[-1],"">=""&R[-3]C[-4],'TS Data'!R[-3]C[-1]:R[59995]C[-1],""<=""&R[-3]C[-3],'TS Data'!R[-3]C[9]:R[59995]C[9],R[-3]C[-1],'TS Data'!R[-3]C[5]:R[59995]C[5],""Yes""),IF(AND(NOT(R[-3]C[-2]=""All""),R[-3]C[-1]=""All""),COUNTIFS('TS Data'!R[-3]C[-1]:R[59995]C[-1],"">=""&R[-3]C[-4],'TS Data'!R[-3]C[-1]:R[59995]C[-1],""<=""&R[-3]C[-3], 'TS Data'!R[-3]C[10]:R[59995]C[10],R[-3]C[-2],'TS Data'!R[-3]C[5]:R[59995]C[5],""Yes""),COUNTIFS('TS Data'!R[-3]C[-1]:R[59995]C[-1],"">=""&R[-3]C[-4],'TS Data'!R[-3]C[-1]:R[59995]C[-1],""<=""&R[-3]C[-3],'TS Data'!R[-3]C:R[59995]C,""Yes"",'TS Data'!R[-3]C[5]:R[59995]C[5],""Yes""))))"
End Sub

Note the underscore.


Regards, TMS