Thread: How to quickly concatenate a column containing 7 items with a column of 200 items?

Maybe this will help:


merge contents of a row of data into one cell separated by a comma

Make a User Defined Function

Function ConcatRow(Rng As Range, Optional Separator As String)
    Dim r As Integer, c As Integer
    Dim StartCol As Integer, EndCol As Integer
    
    With Rng
        r = .Row
        StartCol = .Column
        EndCol = .End(xlToRight).Column
    End With
    
    For c = StartCol To EndCol
        ConcatRow = ConcatRow & Cells(r, c) & Separator
    Next
    ConcatRow = Left(ConcatRow, Len(ConcatRow) - 1)
End Function