how to modify range in this code?

[kriminaal]

I have this code (with help) working for deleting blank rows in the range A11:J45

I need to add more ranges but I don't understand how it is entered in the code.
I need to add A55:J89, A99:J133, A143:J147, A187:J204, A215:J232

Sub Maybe()
    Dim lr As Long
    Dim i As Long
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 12 Step -1
        If Range("A" & i).Offset(, 1).HasFormula = True And Range("A" & i).Offset(, 1).Value = 0 Or _
           Range("A" & i).Offset(, 1).HasFormula = True And Range("A" & i).Offset(, 1).Value = "" Or _
           Range("A" & i).Offset(, 1).Value = "" Then Range("A" & i).Resize(, 10).Delete Shift:=xlUp
    Next i
    Application.ScreenUpdating = True
End Sub

Many thanks

[AlphaFrog]

Your existing code checks all the rows, the logic is not correct though...

Sub Maybe()
    Dim lr As Long
    Dim i As Long
    Application.ScreenUpdating = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 12 Step -1
        If Range("B" & i).HasFormula = True And _
          (Range("B" & i).Value = 0 Or Range("B" & i).Value = "") Then _
           Range("A" & i).Resize(, 10).Delete Shift:=xlUp
    Next i
    Application.ScreenUpdating = True
End Sub

[kriminaal]

Oh okay, it seems to work.
But your modifications do not.
Okay I see it does all the rows, is there a way to change it to do just the Ranges I described?