Edit in Macro that make Sort for similar data

Dear All
i would like to make some editing in the attached code that allow to sort data similar and give result in separate column like in attached file give result in M column.

i need the following Editing
make this code for unlimited column and make result come in last column like in my example come in M column that after last data in l column and also unlimited for Row



regards

HTML Code: 

Different method.

Please Login or Register  to view this content.

Dearjindon
please knidly find attahced example with your code , not working well
please can see what is problem

Originally Posted by jindon

Different method.

Please Login or Register  to view this content.

That's because of ColorIndex.
Changed a bit

Please Login or Register  to view this content.

Dear jindon
thanks for your work it's work good
but i have some modification if can help
i make some edit in file as in my attched file but after working it not work and i need to add to this macro code code that when i apply this macro calculate number of group and put it in cell B3 like in my example 17 group export this sheet to new sheet with name (consist of data in B1+B2) and put it in the same directorty for the file
and rest the file after export

Change to

Please Login or Register  to view this content.

What about export to new file with new name

Then change to

Please Login or Register  to view this content.

the problem in last code
data not sort and also new file coming with name (newname) not like data in cell B1 and B2
also data in Cell B3 not present (17)

You should say so for the file name.

Please Login or Register  to view this content.

really many thanks dear jindon for your work