Countif + SumByColor

Hello all,

I need help in the following case:

I have 60 workers which are working on 4 different shifts (each shift is identified by the color of the cell, see the legend in the upper left corner) and are using 3 different buses to get to work (bus M1, M2 and M3).

What I want to have automatically below the table is a counter which will tell me how many workers will use each type of bus per shift. For example:

First shift
M1: 2 workers
M2: 10 workers
M3: 0 workers

Second shift:
M1: 3 workers
M2: 4 workers
M3: 2 workers

and so on.

What I have so far included is a VB function "SumByColor" which sum cells based on their color, but I don't know how to make such complicate connection to get the wanted result. I was thinking about a possible way to combine "Subtotal" and "SumByColor" , so when I filter bus "M1" for example I will get this split of visible rows below the table. This is also a good solution, but can anyone help me to build it up? Thanks so much.