Can you modify me the following code? I need to get back a number as many data are in the column under the cell B6 but ignoring the BLANK CELLS and cells which contains FORMULAS.
 a = .Range("b6").CurrentRegion