Gather data for similar group

Hello forum experts
I have some data arranged in column A in groups ..
In column B I have numbers scattered and I need to gather them one by one for each group
I have attached the expected results
Thanks advanced for help

Try:

Please Login or Register  to view this content.

Thank you very much Mr. Millz for this working and great code
In fact I need to depend on vba arrays to achieve that task ..
Is there a way to put the range in array and then remove empty elements from the second dimension to let the the rest of values at the top of the array ...?

The same code with arrays would be something like this:

Please Login or Register  to view this content.

Thank you very much
You are brilliant and very helpful

I tried to sort the column B in descending way using that code

Please Login or Register  to view this content.

but I got empty cells at first .. How can I sort in descending way skipping the empty cells?

Thanks I could fix it

Please Login or Register  to view this content.