Vba code to hide specific cells

I propose another solution that does not refer to specific row numbers. It analyzes the colors of the shapes (and cells).
To use it, you need to "clean up" a bit first by running the ArrangeShapes procedure once. The same macro is assigned to all shapes in the 15:200 row range. You will be able to discard all the modules you have had in the project so far.
If the category ranges change in the future, just run the ArrangeShapes procedure once again.

Artik