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/


On 22 jan, 04:41, Jack wrote:
*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