RowRangeValue = Application.CountA(RowRange) - Application.CountIf(RowRange, 0)
Much better than mine!