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
[TABLE="width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]ID[/TD]
[/TR]
[TR]
[TD]ABC[/TD]
[TD]1[/TD]
[/TR]
[TR]
[TD] def[/TD]
[TD]2[/TD]
[/TR]
[TR]
[TD] qwe[/TD]
[TD]3[/TD]
[/TR]
[TR]
[TD]plm[/TD]
[TD]4[/TD]
[/TR]
[TR]
[TD] yui[/TD]
[TD]5[/TD]
[/TR]
[TR]
[TD]MNB[/TD]
[TD]6[/TD]
[/TR]
[TR]
[TD] ert[/TD]
[TD]7[/TD]
[/TR]
[TR]
[TD] lkj[/TD]
[TD]8[/TD]
[/TR]
[TR]
[TD] rtyu[/TD]
[TD]9[/TD]
[/TR]
</tbody>[/TABLE]


2
[TABLE="width: 500"]
<tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ABC[/TD]
[TD]def[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ABC[/TD]
[TD]qwe[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]plm[/TD]
[TD]yui[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MNB[/TD]
[TD]ert[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MNB[/TD]
[TD]lkj[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]MNB[/TD]
[TD]rtyu[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[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