I'm having problems trying to delete cells only. Every time I come close it deletes the entire row. In this example I labeled the cell "remove Cell". I need to remove these cells in Green and move the cells below up.
Sub DelCellZero()
With ActiveSheet.UsedRange
.Replace Remove_cell, "", xlWhole
.SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)
End With
End Sub
Bookmarks