Double click to colapse a set number of rows

Hello,
I am trying to build a worksheet which has an account number in column B with several more rows of content starting in column C and beyond. I would like to be able to hide the 9 rows under the row with the account number by double clicking on the account number. I found this code which will work by collapsing to the next account number, but it collapses the account number underneath it too. Is there a way to collapse only the blank cells in the column until the next number or to program the code to only collapse/hide the next 9 rows below the double clicked cell?

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Long
i = Range("B" & Rows.Count).End(xlUp).Row 
If Target.Column = 2 Then
    Cancel = True
    If Range("B" & Target.Row + 1).Rows.Hidden Then
        Range("B:B").Rows.Hidden = False
    Else
        Range("B" & Target.Row + 1 & ":B" & i).Rows.Hidden = True
    End If
End If
End Sub

Thanks All!

I would prefer to use a double-click function. I am using this code to both hide the empty cells between two cells with 'account numbers' and to double-click some color in other cells.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim HideRows As Boolean
    
    If Target.Column >= 4 Then
        Cancel = True
        Select Case Target.Interior.ColorIndex
            Case xlNone, 4: Target.Interior.ColorIndex = 3
            Case Else: Target.Interior.ColorIndex = 4
        End Select
    End If
    
    If Application.Intersect(Target, Range("B:B")) Is Nothing Then Cancel = True: Exit Sub
    
    If Rows(Target.Offset(1, 0).Row).Hidden Then _
        HideRows = False Else HideRows = True
    'if there is no cell with a value below the clicked cell then cancel
    If Cells.Rows.Count = Target.End(xlDown).Row Then Cancel = True _
            Else Range(Target.Offset(1, 0), Target.End(xlDown).Offset(-1, 0)).Rows.Hidden = HideRows
    
End Sub

The problem is that this VBA opens all the hidden cells below it instead of just the cell clicked. Any ideas?