Output selection to a single string

I have multiple rows containing list of serials as below.

A2004 / A2018 / A2038 / A2122 / A2166

I would like to format these serials in such that they are concatenated into a single string with each serials separated by a comma and the results shall be positioned at the last column of each row. Also the string must have an (M&E) text at the end. So the result should look like this.

A2004, A2018, A2038, A2122, A2166 (M&E)

Below is the code for input from a single column instead of rows. How do I tweak to get my desired result.

Please Login or Register  to view this content.

It looks like you can just add to your final "a" string...

a = Left(a, Len(a) - 1) & " (M&E)"

Hi Chance 2. Thanks for your reply. I'm relatively new to VBA and will need further explanation. I would like to have a button to perform the task and input the results in Column K of my attachment. Kindly help.

This code will add the data to column K

Please Login or Register  to view this content.

Thanks Chance2. Made some tweaks and works like a charm.