VBA to extract info form board

[septimus]

Hi all;
Please help me to generate VBA for this issue.
I have a excel table in Sheet1 (range H9: CNS2000)
Row 9 contain Title ( Ex : Size, Material, Adress,Age,Color,...)
Column H contain Name (Ex : A, B, C, D, E, F, G, H...)
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]

<tbody>
[TD="align: center"][/TD]
[TD="align: center"]Size[/TD]
[TD="align: center"]Material[/TD]
[TD="align: center"]Adress[/TD]
[TD="align: center"]Age[/TD]
[TD="align: center"]Color[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]A[/TD]
[TD="align: center"]40[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]17[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]B[/TD]
[TD="align: center"]43[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]18[/TD]
[TD="align: center"]P[/TD]
[TD="align: center"][/TD]

[TD="align: center"]C[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]D[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]E[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]F[/TD]
[TD="align: center"]35[/TD]
[TD="align: center"][/TD]
[TD="align: center"][/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]W[/TD]
[TD="align: center"][/TD]

[TD="align: center"]G[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]

[TD="align: center"]H[/TD]
[TD="align: center"]37[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]19[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]…[/TD]

</tbody>

[/TD]
[/TR]
</tbody>[/TABLE]














Base on demand, I must extract their info as below example on sheet 2
[TABLE="class: grid, width: 500, align: left"]
<tbody>[TR]
[TD]

<tbody>
[TD="align: center"][/TD]
[TD="align: center"]A[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]F[/TD]
[TD="align: center"]H[/TD]

[TD="align: center"]Size[/TD]
[TD="align: center"]40[/TD]
[TD="align: center"]43[/TD]
[TD="align: center"]35[/TD]
[TD="align: center"]37[/TD]

[TD="align: center"]Age[/TD]
[TD="align: center"]17[/TD]
[TD="align: center"]18[/TD]
[TD="align: center"]32[/TD]
[TD="align: center"]19[/TD]

[TD="align: center"]Color[/TD]
[TD="align: center"]B[/TD]
[TD="align: center"]P[/TD]
[TD="align: center"]W[/TD]
[TD="align: center"]B[/TD]

[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]
[TD="align: center"]…[/TD]

</tbody>

[/TD]
[/TR]
</tbody>[/TABLE]








I'm always appreciate your work.
Thank you so much!
Septimus