Sub test()
Dim i As Long
Dim c As Range
Dim offsetindex As Long
Dim delRng As Range

    Set c = ActiveSheet.Range("E1:E20").Find("0")

    While Not c Is Nothing
        
        Set delRng = c
        offsetindex = c.Row +  1 
        
        Do While Cells(c.Row, offsetindex).MergeCells = True
            Set delRng = Union(delRng, Cells(c.Row, offsetindex))
            offsetindex = offsetindex +  1 
        Loop
        
        delRng.EntireRow.Delete
        Set c = ActiveSheet.UsedRange.FindNext
    Wend
    
End Sub