Where appropriate, place

Cells.(x,x).Calculate

I have a column that I add a countif formula  which
resulted in zeros.

But I also had
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
in the sub that called this sub.

So following the formula insertion I added the
.Calculate & all appears to be good.