please. i need macro to find blank cell and delete it

So if a5 is empty to want to delete row 5 and shift all cells below that up right?

Sub Delete_Row()

temp = Range("A65536").End(xlUp).Row

For x = 1 To temp
Cells(x, 1).Select
If Cells(x, 1) = "" Or Cells(x, 1) = 0 Then
Rows(x).Select
Selection.Delete Shift:=xlUp
End If
Next x
End Sub

Simple enough.

Create a button and link it to it if you want. If i interpreted wrong then give more info.

another Option

I reread your question and decided if you don't want to delete the row but also don't want an error you can do this

In front of your formula type if(iserr(insert entire formula),"",inset entire formula again)

so if a formula was x=78/0
you would type if(iserr(x=78/0),"",x=78/0)
It beats deleting things a lot of times the proble is with index match it is hard to insert maybe you want a macro to input this instead. It wouldn't be hard let us know.

thanks david but.....

your code is when the cell is empty the whole
rows will be deleted..am i right..thanks
brother but i just want when it detect in
column A empty, it just delete the formula
in column B..is it possible thanks again

Re: thanks david but.....

Sub Delete_Formula()
temp = Range("A65536").End(xlUp).Row
For x = 1 To temp
Cells(x, 1).Select
If Cells(x, 1) = "" Or Cells(x, 1) = 0 Then
cells(x,2)="" 'This line might not be correct. I do not have excel where i am so I could Not test it.
End If
Next x
End Sub

you right it's not working..inside..

if you have spare time why don't u drop me an emai
with correct code..that if not bother u..thanks for
your time

Re: you right it's not working..inside..

John,
Here is the correct syntax. Hope it takes care of what you need, let me know!

RYan

Sub Delete_Formula()
temp = Range("A65536").End(xlUp).Row
For x = 1 To temp
Cells(x, 1).Select
If Cells(x, 1) = "" Or Cells(x, 1) = 0 Then
Cells(x, 2).Clear
End If
Next x
End Sub

Re: you right it's not working..inside..

Thanks ryan hope that works for you john.