VBA code to format (un-pivot) table

[KK3008]

Hi,

I am trying to un-pivot this table-

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD][/TD]
[TD]A1[/TD]
[TD]A1[/TD]
[TD]A1[/TD]
[TD][/TD]
[TD]A2[/TD]
[TD]A2[/TD]
[TD]A2[/TD]
[/TR]
[TR]
[TD]STORE RECEIPT WEEK[/TD]
[TD]Floorset[/TD]
[TD]Target[/TD]
[TD]Instore[/TD]
[TD]Newness[/TD]
[TD][/TD]
[TD]Target[/TD]
[TD]Instore[/TD]
[TD]Newness[/TD]
[/TR]
[TR]
[TD]FY20[/TD]
[TD][/TD]
[TD]100[/TD]
[TD]89[/TD]
[TD]25[/TD]
[TD][/TD]
[TD]200[/TD]
[TD]193[/TD]
[TD]55[/TD]
[/TR]
</tbody>[/TABLE]

To look like this-

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD]Business[/TD]
[TD]STORE RECEIPT WEEK[/TD]
[TD]Floorset[/TD]
[TD]Target[/TD]
[TD]Instore[/TD]
[TD]Newness[/TD]
[/TR]
[TR]
[TD]A1[/TD]
[TD]FY20[/TD]
[TD][/TD]
[TD]100[/TD]
[TD]89[/TD]
[TD]25[/TD]
[/TR]
[TR]
[TD]A2[/TD]
[TD]FY20[/TD]
[TD][/TD]
[TD]200[/TD]
[TD]193[/TD]
[TD]55[/TD]
[/TR]
</tbody>[/TABLE]

Could someone help me with the VBA code for this please?

Thanks in advance!