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.

"Don Guillett" wrote:

Try this approach

Sub deleterowsbelowfirstblankcell()
fbr = Cells(1, 1).End(xlDown).Row + 1
'MsgBox fbr
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
'MsgBox lr
Rows(fbr).Resize(lr - fbr).Delete
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MrRJ" wrote in message
...
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.