remove blank cell from a range

[ranswrt]

I have been trying to write a procedure to remove blank cells from a range of
cell sand then count the number of cells that have something in them. I
don't want to delete the rows that are blank. I have been trying to shift
the lower rows up to fill the blank cells. How is the best way to do this?
Thanks

 

[Wigi]

Do you only want to count the non-empty cells in a range?

Or am I missing the point?

 

[randy]

I would like to move the contents of the cells below up into the empty cell.
There could be more than one empty cell in the range. I don't want to delete
the row because that will mess up the contents to the side of the emty cell.
Once all the empty cells have been removed from the range I need to count
how many non empty cells in the range.