count non-blank cells in range w/VB