Insert Rows Macro

[nehpets12]

I have 3 columns
Part No Description Qty

Ineed a macro to go to column (Qty) and insert that no of rows in, -1
and to copy the data down as well

Example
A B C
01009 Ram 3
01009 Ram 3
01009 Ram 3
01005 Spacer 2
01005 Spacer 2
010002 Door 1


hope this is clear enough

thank you

[MrExcel]

Something like this:

Sub CopyThem()
    FinalRow = Cells(65536, 3).End(xlUp).Row
    For i = FinalRow To 2 Step -1
        ThisQty = Cells(i, 3).Value
        If ThisQty > 1 Then
            Cells(i + 1, 1).Resize(ThisQty - 1, 1).EntireRow.Insert
            Cells(i, 1).Resize(1, 3).Copy _
                Destination:=Cells(i + 1, 1).Resize(ThisQty - 1, 3)
        End If
    Next i
    
End Sub

Note that the loop starts at the last row and goes up the sheet so that the row insertions don't interfere with the loop.

Bill

[nehpets12]

thank you it is just what I wanted