Macro to add range & criteria in COUNTIFS Formula

I have over 500 countifs formulas on a single sheet, all are slightly different depending on row and column. I need a Macro that will insert a new range and new criteria into an existing COUNTIFS formula...

Example:

=COUNTIFS(game,"W",AH,"A")

Changed to

=COUNTIFS(game,"W",AH,"A",FD,"F")

game, AH, FD are defined names of ranges on another sheet.

If have this script below, but it just adds the new string to the end of the existing formula. I need the new string to be inside that last parenthesis. Or replace the last parenthesis with my new string. Help!

Sub Macro3()

Dim Orig_formula As String

Orig_formula = ActiveCell.Formula
Orig_formula = Mid(Orig_formula, 1, 1) & Mid(Orig_formula, 2) & "FD, " & Chr$(34) & "F" & Chr$(34) & ")"
ActiveCell.Formula = Orig_formula

End Sub

Hello and welcome to the forum,

Maybe something like this:

ActiveCell.Formula = Left(ActiveCell.Formula, Len(ActiveCell.Formula) - 1) & "," & "FD," & """F""" & ")"

Hope this helps.

abousetta

P.S. Please use code tags around your code. Details on how are available in the forum rules.

Or use Replace:

ActiveCell.Formula = Replace(ActiveCell.Formula, ")", "," & "FD," & """F""" & ")")

abousetta