Concatenate rows into single cell, but remove last comma from row

VBA_Concatenate Rows.xlsm

Hi I have a spread sheet that with the aid of a button concatenates the first columns (A:C) into column D using the following formula:

Please Login or Register  to view this content.

The final step I need the macro to do is to remove the last comma (,) from the last cell in column D.

The length of data can vary from day to do. so its not always the same cell.
If anyone can help, cheers.

Dave

Maybe:

Please Login or Register  to view this content.

Perfect, thanks!

You're welcome. Glad to help out and thanks for the feedback.