this is

from one of the newsgroup correspondents

use this code statement

Range("a1:a10").SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete



=================================

Hugh Murfitt wrote in message
...
I have a range of cells A1:a10, say, which obtain data from another
source.
Some of those cells a3, a6:a8, say, under certain conditions, will be
blank.
How do I reorder this range such that the cells containing information
are
listed together, removing the blanks? I want to do this using a formula,
rather than filter or sort, as the data, and hence the blank cells, will
change, and I want to perform analysis on the cells containing data.