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.
Code:
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