This code:

Set RngColD = Range("D2", Range("D" & Rows.Count).End(xlUp))

For j = 900 To 954
Info = ""
For Each i In RngColD
If i.Value = Range("A" & j).Value Then
If Info = "" Then
Info = i.Offset(, 12).Value
Else
Info = Info & "," & i.Offset(, 12).Value
End If
End If
Next i
Range("K" & j) = Info
Next j


is returning what I want but some of the values return with too many "," some of them with more than 10. For example: Car,,,,,,,,,,,,,,,Lot,Men,,,,,,,,