try to use:
WorksheetFunction.CountIf(RNG, "")>0
and replace wrong:
Application.CountIf(rng, "") > 0