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:

[TABLE="width: 330"]
<tbody>[TR]
[TD]A[/TD]
[TD]B[/TD]
[/TR]
[TR]
[TD]Seattle Supply Works[/TD]
[TD]123[/TD]
[/TR]
[TR]
[TD]Seattle Supply Works[/TD]
[TD]Main Street[/TD]
[/TR]
[TR]
[TD]Seattle Supply Works[/TD]
[TD]Kent, WA 98032[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Levittontown DC[/TD]
[TD]cc Property Mgmt[/TD]
[/TR]
[TR]
[TD]Levittontown DC[/TD]
[TD]456[/TD]
[/TR]
[TR]
[TD]Levittontown DC[/TD]
[TD]East Main Street[/TD]
[/TR]
[TR]
[TD]Levittontown DC[/TD]
[TD]Suite 300[/TD]
[/TR]
[TR]
[TD]Levittontown DC[/TD]
[TD]East Brunswick, NJ 08816[/TD]
[/TR]
</tbody>[/TABLE]


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!