Problem with Loop Macro to Hide Rows.

Hi All,

I have been trying to create a macro to hide blank rows. However I want leave single blank rows where they appear between groups of data. The single blank rows are already in the data set and the large number I want to hide are at the end of the group of data. I created the macro below and it works leaving the single blank rows however when it reaches the multiple blank rows it only hides every other blank row. Here is the code:

Sub HideRow()
    Dim i As Long
    i = 11
    Do Until Range("B" & i + 1) = "stop"
        If Range("B" & i + 1) = "" And Range("B" & i + 2) = "" Then
            Range("B" & i).EntireRow.Hidden = True
            i = i + 1
        End If
        i = i + 1
    Loop

    
End Sub

I have tried varying a few parameters to no avail and need some other ideas! Any help would be appreciated!

Cheers
James