Hello,
I have a column of numbers with a few cells being blank. I am using the
following code to delete the blank cells: and shift the numbers up.

LR = cells(1,1).end(xldown).row
for i = 1 to lr
if isempty(cells(i,1))=true then
cells(i,1).delete shift:=xlup
i = i -1
end if
next i

I get in a loop because of the i = 1 -1. I need that to ensure there are
not two blank cells together.

Any ideas.

Thanks

Bill