Sub HideRows() On Error Resume Next With Range("A2:B800") .EntireRow.Hidden = False For i = 1 To .Rows.Count If WorksheetFunction.Sum(.Rows(i)) = 0 Then .Rows(i).EntireRow.Hidden = True End If Next i End With End Sub
If you mean by saying that cells containing 0 really are cells containing nothing, then you can substitute the line:
If WorksheetFunction.Sum(.Rows(i)) = 0 Then
With:
If WorksheetFunction.CountBlank(.Rows(i)) = 2 Then