Hide Rows for First Set of Consecutive Blank Cells in Column

Sub Hide_Blanks_Specific()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1")
Dim b As Boolean:   b = False
Dim sRow As Long, lRow As Long
Dim c As Range

For Each c In ws.Range("B1:B" & ws.Range("B" & Rows.Count).End(xlUp).Row)
    If b = False Then
        If Len(c) = 0 Then
            sRow = c.Row
            b = True
        End If
    ElseIf b = True Then
        If Not Len(c) = 0 Then
            lRow = c.Offset(-1).Row
            Exit For
        End If
    End If
Next c

ws.Range("A" & sRow, "A" & lRow).EntireRow.Hidden = True

End Sub