Calculation w/ Filter
 

In my Excel sheet, i have the following formulas
calculated at the bottom of the data:

Range("F" & NumRows + 2).Formula =
"=COUNT(A7:A" & NumRows & ")"

Range("J" & NumRows + 2).Formula =
"=SUM(IF(FREQUENCY(A7:A" & NumRows & ",A7:A" & NumRows & ")
0,1))"

This works fine, and it correctly calculates total rows
and unique rows. The problem is when the user uses the
filter function to filter out some of the data. When that
happens, the total lines are not recalculated - but I want
them to be.

Any suggestions how to get the totals recalculated?

Thanks!