Have you tried using Data | Filter | AutoFilter
This lets you select varies values.

Or try Edit | GoTo | Special and specify blank cells

Not clear what you want to happen to B entries.
best wishes
--
Bernard V Liengme
Microsoft Excel MVP
www.stfx.ca/people/bliengme
remove caps from email

"John" wrote in message
...
how to (forumla or macro) delete only the empty columns in A:A, but if
any
text in A10 or A18 not empty then need to keep it, after the empty box
deleted the column B need to move to A