Non blank cells

M

MrRJ

Hello,

I need you help in resolving my error code. I would like to find the first
blank cell in colume A and then delete everything below it.

I tried this and it did not work.
Range(Range("A65536").End(xlUp)(2), Range("A65536")).EntireRow.Delete

Help is much appreciated.
 
M

MrRJ

Thanks Don,
If I wanted to change the column to B, it would be Cells(2,1), right?

Thanks.
 
M

MrRJ

Don,
Thanks for your help earlier. I found a problem that just doesn't make
sense. I ran my macro with your code or anything similar. I watched it run
and then came to a halt, because of non blank cell error. Naturally, I ended
the code and manually tried to insert a column, and it didn't work.

NOW, after a several minutes later, I tried to insert the column and IT
WORKS! Wny is that? It makes no sense to me. Is it working behind the
scenes?

I hear a lot about screenupdating and calculation turning off. Would that
help. I do not have them in my code. If you think I need it, where should I
put them?

Thanks.
 
M

MrRJ

Don,
Thanks for your help earlier. I found a problem that just doesn't make
sense. I ran my macro without your code or anything similar. I watched it
run and then came to a halt, because of non blank cell error. Naturally, I
ended the code and manually tried to insert a column, and it didn't work.

NOW, after a several minutes later, I tried to insert the column and IT
WORKS! Wny is that? It makes no sense to me. Is it working behind the
scenes?

I hear a lot about screenupdating and calculation turning off. Would that
help. I do not have them in my code. If you think I need it, where should I
put them?

Thanks.
 
Top