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.