complex subtotal macro of dynamic packsize drinks

I have a worksheet in which data is sorted in column L which is a merge concatenation of column H to K.

My issue is how to make subtotal drinks packsize of columns L in red but there are also mixed food items and column T,U,V,W THEN column AB TO AD.
which are normal subtotals .

Looking a macro that can do these function in one click for all the concerned columns subtotals in which the headers are bold red to last data row.

22042199 WINES 6x1x75CL FR
22042199 WINES 6x1x75CL FR
22042199 WINES 6x1x75CL FR
22042199 WINES 6x1x75CL FR
22042199 WINES 6x1x75CL FR
22042199 WINES 30x1x75CL FR Total


21069090 FOOD PREP. FR
21069090 FOOD PREP. FR
21069090 FOOD PREP. FR Total