Repeat and automatically copy row to new row

pls look into attached excel file for better understanding.

What i want:

I want to repeat all the data in row based on value in QTY column,

for example : if row 3 has "2" in column named "qty", then want to repeat it by two times...copy same data of row 3 to new row.

row 5 has 15 value, so repeat it 15 times, add new 14 rows with same data of row5

I have copied the data from column A to F to another sheet sheet2.
this is my data sheet

the required macro is

Please Login or Register  to view this content.

if you want to use this for data in sheet1 modify the statement
Worksheets("sheet2").Activate
to
Worksheets("sheet1").Activate

venkat1926

your code is giving me error on line 4. Its says run-time error '6'. Overflow.

j = Range("a1").End(xlDown).Row



pike
your code is working well.

Thanks for you kind support.

I am attaching one more file.
can you people help me with that file pls?

Thanks in advance to all of you. Really this will be very very helpful to me.