Sub csg()
    Dim rng As Range, rCell As Range
    Dim lr As Long, i As Long, j As Long
    Dim Str As String
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 6 To lr
        Set rng = Range(Cells(i, 2), Cells(i, 19))
            For Each rCell In rng
                If rCell.Value <> "" Then
                    Str = Str & "," & rCell.Value
                End If
            Next
         Cells(i, 20) = Right(Str, Len(Str) - 1)
         Str = Empty
     Next
End Sub