To write  this macro you will need a "for next" loop to step through the cells

Within this macro you will need to set a variable equal to the contents of the
cell.

You then need to use the left function to extract the part of the cell before
the (

But then check whether the value is the same as the previous value.

If it is not the same concatenate  the value to the string you are building.

X equals X & myValue


Have a go at this and let us know if you have any problems.