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

Tried but it is not adding where there are pack size drinks in subtotal columns in red bold ,
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

Yes It is the actual content if I used normal subtotal,

22042199 WINES 6x1x75CL FR Total

should read

22042199 WINES 30x1x75CL FR Total

JEAN1972

Run the code after Subtotal.

Please Login or Register  to view this content.

@ Jindon Thank you works as a charm

@Sintek Thank for your effort but I did not get the correct results

I attached sample workbook with the correct expected results from Jindon solution and that of yours.

Hi Sintek

Tried your code but not expected results.

See sheet sorted work normal 2 tab where I applied your code

OK thanks Sintek working now

I noticed on last line

22087090 LIQUEURS 12x8x70CL IE Total should read 22087090 LIQUEURS 6x8x70CL IE Total

also the grand total did not appear in the final row

Please Login or Register  to view this content.

Originally Posted by jindon

JEAN1972

Run the code after Subtotal.

Please Login or Register  to view this content.

Hello Jindon

I have a worksheet where the same principles applies as above but column position differs from the first one .

the first columns subtotals involved were L,T,U,V,W,AB,AC,AD for the solution provided.

Now I have a second attachment ,column involved in subtotals are N,U,V,W,X,AF which the headers involved are in yellow font

I have tried to change interchange columns in the code but unsuccessful ,can you advise where to change the parameters so it works on the second attachement

Please Login or Register  to view this content.

Thank you for explanation, works as a charm