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?

Please Login or Register  to view this content.

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.

Please Login or Register  to view this content.

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