delete cells containing a zero in one column

[shew0387]

I'm trying to just delete the cells instead of the entire row that contain zero's. This code finds the first zero value in a cell, deletes it, but then it shifts the values in adjacent columns over one to the left, but only in the row where it found the first zero value cell...if you can, please help. Thanks

Sub Delete_zero_cells()
Range("A2").Select
While IsEmpty(ActiveCell) = False

If ActiveCell.Value = "0" Then
ActiveCell.Cells.Delete
Else
ActiveCell.Offset(1, 0).Activate

End If
Wend
End Sub

 

[shew0387]

okay, i'm a bonehead - I added the "shift:=xlUp" after deleting the cells and that seems to be the fix... Thanks for stopping by and reading a conversation between myself...

Sub Delete_zero_cells()
Range("A2").Select
While IsEmpty(ActiveCell) = False

If ActiveCell.Value = "0" Then
ActiveCell.Cells.Delete shift:=xlUp
Else
ActiveCell.Offset(1, 0).Activate

End If
Wend
End Sub