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:

GROUP	User
Telecom-Corp	User 1
Telecom-Corp	User 2
Telecom-Corp	User 3
Telecom-Corp	User 4
Telecom-Corp	User 5
Telecom-Corp	User 6
Data Center Platform - Windows Software	User 1
CMS-Charlotte	User 1
CMS-Charlotte	User 2
CMS-Charlotte	User 3
CMS-Charlotte	User 4
Collaboration Engineering	User 1
Collaboration Engineering	User 2
Collaboration Engineering	User 3
Collaboration Engineering	User 4
Database Software	User 1

<tbody>
</tbody>

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:

	Group Users Telecom-Corp User 1, User 2, User 3, User 4, User 5, User 6 CMS-Charlotte User 1, User 2, User 3, User 4 Collaboration Engineering User 1, User 2, User 3, User 4 Data Center Platform - Windows Software User 1 Database Software User 1 <tbody> </tbody>
	Any help would be greatly appreciated Thank you in Advance

<colgroup><col><col></colgroup><tbody>
</tbody>

 

[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