Formatting Groups with VBA

[sjk1193]

I have the table below and I need to write a VBA script to change table 1 so that the data looks like table B and pastes the data in a new tab in the same workbook

The only distinguishing features between the rows is that one is bold and the others are not. The Bold is the overall group and the ones that are not bolded are holdings in the groups.
So I basically need it to list the group and the holdings side by side

1

Name	ID
ABC	1
def	2
qwe	3
plm	4
yui	5
MNB	6
ert	7
lkj	8
rtyu	9

<tbody>
</tbody>

2

ABC	def
ABC	qwe
plm	yui
MNB	ert
MNB	lkj
MNB	rtyu

<tbody>
</tbody>

 

[MickG]

Try this for results starting "D1".

[COLOR="Navy"]Sub[/COLOR] MG15Nov27
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, Temp [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]String,[/COLOR] c [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
[COLOR="Navy"]Set[/COLOR] Rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] Dn.Font.Bold = True [COLOR="Navy"]Then[/COLOR]
        Temp = Dn.Value
    [COLOR="Navy"]ElseIf[/COLOR] Temp <> "" [COLOR="Navy"]Then[/COLOR]
        c = c + 1
        Cells(c, 4) = Temp
        Cells(c, 4).Font.Bold = True
        Cells(c, 5) = Dn.Value
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick