Need help merging cels based on another cel

[gyagos]

All,
I have been trying to figure out how to do this, but i have been unsuccessful so far. I have a spreadsheet (below is just a snippet) that contains the following information:

[TABLE="width: 500"]
<tbody>[TR]
[TD]GROUP[/TD]
[TD]User[/TD]
[/TR]
[TR]
[TD]Telecom-Corp
[/TD]
[TD]User 1
[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 2
[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 3[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 4[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 5[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 6
[/TD]
[/TR]
[TR]
[TD]Data Center Platform - Windows Software[/TD]
[TD]User 1[/TD]
[/TR]
[TR]
[TD]CMS-Charlotte[/TD]
[TD]User 1[/TD]
[/TR]
[TR]
[TD]CMS-Charlotte[/TD]
[TD]User 2[/TD]
[/TR]
[TR]
[TD]CMS-Charlotte[/TD]
[TD]User 3[/TD]
[/TR]
[TR]
[TD]CMS-Charlotte[/TD]
[TD]User 4[/TD]
[/TR]
[TR]
[TD]Collaboration Engineering[/TD]
[TD]User 1[/TD]
[/TR]
[TR]
[TD]Collaboration Engineering[/TD]
[TD]User 2[/TD]
[/TR]
[TR]
[TD]Collaboration Engineering[/TD]
[TD]User 3[/TD]
[/TR]
[TR]
[TD]Collaboration Engineering[/TD]
[TD]User 4[/TD]
[/TR]
[TR]
[TD]Database Software[/TD]
[TD]User 1[/TD]
[/TR]
</tbody>[/TABLE]


What i would like to do is if the GROUP has multiple users, combine all users within the group so that the new list would be like the following:

[TABLE="width: 471"]
<colgroup><col><col></colgroup><tbody>[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][TABLE="width: 500"]
<tbody>[TR]
[TD]Group[/TD]
[TD]Users[/TD]
[/TR]
[TR]
[TD]Telecom-Corp[/TD]
[TD]User 1, User 2, User 3, User 4, User 5, User 6[/TD]
[/TR]
[TR]
[TD]CMS-Charlotte[/TD]
[TD]User 1, User 2, User 3, User 4[/TD]
[/TR]
[TR]
[TD]Collaboration Engineering[/TD]
[TD]User 1, User 2, User 3, User 4[/TD]
[/TR]
[TR]
[TD]Data Center Platform - Windows Software[/TD]
[TD]User 1[/TD]
[/TR]
[TR]
[TD]Database Software[/TD]
[TD]User 1[/TD]
[/TR]
</tbody>[/TABLE]

[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]Any help would be greatly appreciated
Thank you in Advance[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

How about

Sub gyagos()
   Dim Cl As Range
   Dim Dic As Object
   Dim Ky As Variant
   
   Set Dic = CreateObject("scripting.dictionary")
   For Each Cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
      If Not Dic.Exists(Cl.Value) Then Dic.Add Cl.Value, CreateObject("scripting.dictionary")
      Dic(Cl.Value)(Cl.Offset(, 1).Value) = Empty
   Next Cl
   For Each Ky In Dic.keys
      Range("E" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Array(Ky, Join(Dic(Ky).keys, ", "))
   Next Ky
End Sub

 

[gyagos]

Works perfectly
Thank you very much for the quick response & solution

 

[Fluff]

You're welcome & thanks for the feedback