Sub subDeleteEmptyCells()
    Dim rng As Range
    Dim cel As Range

    Set rng = Range("A1:B6") ' Указываешь диапазон.

    For Each cel In rng
        ' Если значение ячейки в указанном диапазоне = 0,
        ' выделяем ее и удаляем со сдвигом вверх.
        If cel.Value =  0  Then
            cel.Select
            ActiveCell.Delete Shift:=xlUp
        End If
    Next cel
End Sub

Range("A1:B6") 

Range("A1:B6")

        If cel.Value =  0  Then
            cel.Select
            ActiveCell.Value = ""
        End If