Loop with Condition: Check column for empty cells, if empty shiftup data

[drmingle]

I have a list of data within column B. The data is all spread out out in column B.

For example,

B1 = IsEmpty
B2 = ABC
B3 = IsEmpty
B4 = ABC

I would like to run some VBA to basically wipe out all the blank cells for this column only, so that I am only left with cells that have data contained in them.

I only need to search to row 200 (not the whole sheet).

NOTE: I will not be able to delete EntireRow since I have adjacent cells with data.

NOTE: I have used the following without success - Skip Blanks in pasting, F5 GoTo Special Blanks, Set filter to exclude blanks before pasting...

Any help would be appreciated.

 

[Lorlai]

This delete should do what you are asking:

Selection.Delete Shift:=xlUp

This only brings up the cells in whatever column you have selected.

Hope this helps!

Lorelai

 

[drmingle]

Thanks Lorelai:

If someone can help me develop the code to loop through to do the following:

*Find the empty cells contained in a range
*Apply Lorelai's code if the cell is empty

Thanks for the help in advance...

Damian