to use VBA to expand and collapse entire rows

Hi

I need some a couple of vba help with the attached workbook. Help will be greatly appreciated.

Fort the first part
1. Cell B8 is double clicked, entire rows from 9 to 13 is to be collapsed. If double clicked again it should be able to expand.
2. Cell B14 is double clicked, entire rows from 15 to 20 is to be collapsed. If double clicked again it should be able to expand.
3. Cell B21 is double clicked, entire rows from 22 to 27 is to be collapsed. If double clicked again it should be able to expand.

The second part can I check is it possible for the rows in between to auto sort by status in column m. The function should keep open items at the top followed by completed items below within the group. I have tried this before and it didn’t quite work out and am not sure if it’s because of the collapsible/expandable hidden function. If part2 is not possible it’s ok.