Create list based on data table

[Jack]

i would like to create a list based on the data in a table.

A B C
Num Item Price
3 Coats $25.00
2 Hats $10.00
4 Gloves $2.00

the output should like like the following
Coats $25.00
Coats $25.00
Coats $25.00
Hats $10.00
Hats $10.00
Gloves $2.00
Gloves $2.00
Gloves $2.00
Gloves $2.00

thanks for your help
Jack

 

[JB]

Sub ColumnToRow()
RowDest = 2
For RowSource = 2 To [A65000].End(xlUp).Row
For j = 1 To Cells(RowSource, 1)
Cells(RowDest, 5) = Cells(RowSource, 2)
Cells(RowDest, 6) = Cells(RowSource, 3)
RowDest = RowDest + 1
Next
Next
End Sub

http://cjoint.com/?byjAcilC3L

JB
http://boisgontierjacques.free.fr/