Concatenate Multiple Rows Into One Row

Hi,

Is there a fast way to execute the concatenation of multiple rows into 1 single row?
Here is the sample on how to do manually, but I would like see in automated way:

Please Login or Register  to view this content.

Here is my sample file:

Thanks

UDF

Formula in Sheet1 D1:
=ConcAll(Table13,[@ID],2,", ")
and copy down

To a standard code module.

Please Login or Register  to view this content.

Wow instant result. I wrote a code that scan within 2 range and it takes 2-5mins for about 2000 records. This one is so instant!!

Thank you so much!!

You are welcome and thanks for the rep.