Public Sub DeleteCell()
    Dim i As Long, vLast As Long
    vLast = 6: i = 2
    Do While i <= vLast
        If WorksheetFunction.IsNumber(Cells(i, 2).Value) Then
            If Cells(i, 2).Value = 0 Then
                Range(Cells(i, 2), Cells(i, 3)).Delete shift:=xlShiftUp
                vLast = vLast - 1
            Else
                i = i + 1
            End If
        Else
            i = i + 1
        End If
    Loop
    For i = 6 To 2
    Next i
End Sub