how Need to delete a row with cells with zero

[ru_1985]

This code is when there is a ZERO in the cell, it will delete away the whole cell and shift up... how can i remain the cell with a blank instead.

Sub rowdelete() 
For x = Range("D65536").End(xlUp).Row To 1 Step -1 
If Cells(x, 4).Value = 0 Then 
Cells(x, 4).Row.Delete 
End If 
Next x 
End Sub

 

[Crow_23]

So you want to do the same with blank cells as with the value 0 and delete them?

 

[ru_1985]

i wan to delete whatever formula which is in the cell whenever there is a cell with empty blank space

 

[Joe4]

Per forum rules, please stop re-posting the same questions, or variations thereof. Post back to the original thread:
http://www.mrexcel.com/board2/viewtopic.php?t=237530&highlight=