Repeat and automatically copy row to new row

[sanketgroup]

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

[venkat1926]

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

the required macro is

Sub test()
Dim j As Integer, k As Integer, m As Integer
Worksheets("sheet2").Activate
j = Range("a1").End(xlDown).Row
For k = j To 2 Step -1
m = Cells(k, "c")
If m > 1 Then
Range(Cells(k + 1, "c"), Cells(k + m - 1, "c")).EntireRow.Insert
Range(Cells(k, "a"), Cells(k, "f")).Copy
Range(Cells(k, "A"), Cells(k + m - 1, "A")).PasteSpecial
End If
Next k
End Sub

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

[pike]

or

Option Explicit
Sub test()
Dim xitem, irep
With Sheets("Sheet1")
For Each xitem In Range("c2", Cells(Rows.Count, 3).End(xlUp))
    For irep = 1 To xitem.Value
    .Cells(xitem.Row, "A").Resize(, 6).Copy Destination:=.Cells(.Rows.Count, "I").End(xlUp).Offset(1, 0)
    Next
    Next
    End With
End Sub

[sanketgroup]

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.