Good but not enough

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,,,,,,,,

I believe its because you declare info = "" too early. You later reset info to something else. However, for each iteration of the for loop you don't reset info back to "". At the very end of the for loop try putting another info ="", so the next time through will start clean.