hi,

Here's what the macro recorder gives me for entering the Count functions...
    Range("H30").FormulaR1C1 = "=COUNTIF(R5C8:R29C8,""NEW*"")"
    Range("H30").FormulaR1C1 = "=COUNTA(R5C8:R29C8)"
'which can be modified to
Range("H30").FormulaR1C1 = "=COUNTIF(R5C8:R" & LR & "C8,""NEW*"")"
Range("H30").FormulaR1C1 = "=COUNTA(R5C8:R" & LR & "C8)"
but then comes your comment "if I run the macro a second time"...

Do you need to keep the totals separate each time the macro is run?
If not, I strongly recommend moving the total cells to above the header row (& using a dynamic named range). This means the total becomes part of the original design & doesn't need to be modifed each time the macro is run.
If you do, you could try this approach:
Range("H30").FormulaR1C1 = "=COUNTA(R5C8:R29C8)-SUMIF(R5C2:R29C2,""TOTAL"",R5C8:R29C8)"
'which can be modified to
Range("H30").FormulaR1C1 = "=COUNTA(R5C8:R" & LR & "C8)-SUMIF(R5C2:R" & LR & "C2,""TOTAL"",R5C8:R" & LR & "C8)"

hth
Rob