VBA to concatenate cells if same value exists in another column

[VBAAccountant]

I'm not even sure where to start with this one.

I have the following scenerio:

A	B
Seattle Supply Works	123
Seattle Supply Works	Main Street
Seattle Supply Works	Kent, WA 98032
Levittontown DC	cc Property Mgmt
Levittontown DC	456
Levittontown DC	East Main Street
Levittontown DC	Suite 300
Levittontown DC	East Brunswick, NJ 08816

<tbody>
</tbody>

I would like a VBA code to look at any duplicate cells in column A and concatenate the items in column B for those duplicate cells in column C:

C
Seattle Supply Works 123 Main Street, Kent, WA 98032
Levittontown DC cc Property Mgmt, 456 East Main Street, Suite 300, East Brunswick, NJ 08816

I would like the concatenated data in C to be listed on each duplicate line.

 

[DanteAmor]

Try this

Sub Concatenate()
    j = 2
    ant = Cells(2, "A").Value
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row + 1
        If Cells(i, "A").Value <> ant Then
            cad = ant & " " & cad
            Cells(j, "C").Value = cad
            cad = ""
            j = j + 1
        End If
        cad = cad & " " & Cells(i, "B").Value
        ant = Cells(i, "A").Value
    Next
End Sub

 

[VBAAccountant]

Thanks!

 

[DanteAmor]

You're welcome!