Help with converting multiple columns into rows

[Punxsu]

Hi Everyone,

I am trying to convert

Excel 2010

	A	B	C	D	E	F	G	H	I
School	ID	Race	Age	Gender	Group
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"]2011[/TD]
[TD="align: right"]2012[/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"] 161 [/TD]
[TD="align: right"] 174 [/TD]
[TD="align: right"]307[/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"] 174 [/TD]
[TD="align: right"] 192 [/TD]
[TD="align: right"]509[/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"] 157 [/TD]
[TD="align: right"] 181 [/TD]
[TD="align: right"]121[/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"] 176 [/TD]
[TD="align: right"] 165 [/TD]
[TD="align: right"]106[/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"] 186 [/TD]
[TD="align: right"] 173 [/TD]
[TD="align: right"]190[/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"] 176 [/TD]
[TD="align: right"] 177 [/TD]
[TD="align: right"]404[/TD]

</tbody>

Data​

to



Excel 2010

	A	B	C	D	E	F	G	H
School	ID	Race	Age	Gender	Group	Year	Size
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Black	Female	Local
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International
ADM	Caucasian	Female	International

<colgroup><col style="width: 25pxpx"><col><col><col><col><col><col><col><col></colgroup><thead>
</thead><tbody>
[TD="align: center"]1[/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 161 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 174 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 307 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 174 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 192 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 509 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 157 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 181 [/TD]

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

[TD="align: right"]1[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 121 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 176 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 165 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]15[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 106 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 186 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 173 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]16[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 190 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2010[/TD]
[TD="align: right"] 176 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2011[/TD]
[TD="align: right"] 177 [/TD]

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

[TD="align: right"]2[/TD]

[TD="align: right"]17[/TD]

[TD="align: right"]2012[/TD]
[TD="align: right"] 404 [/TD]

</tbody>

Results​

Any help with a VBA code (possibly with comments) would help. Thanks.

Bert

 

[Fazza]

OK. Thanks, Peter

 

[sharicn]

Found this thread after doing some searching after I posted my own similar question (I did not have luck with my searches yesterday). Peter's code worked like a charm for me -- just wanted to take a moment to say THANK YOU so much!

Shari