Hi Darren,
See the attached that has this code in it:
Sub DarrenKain()
Dim Last1Row As Double
Dim Last2Row As Double
Dim RowCtr As Double
Dim Qty As Double
Dim QtyCtr As Double
Last1Row = Cells(Rows.Count, "A").End(xlUp).Row
For RowCtr = 2 To Last1Row
Qty = Cells(RowCtr, "B").Value
For QtyCtr = 1 To Qty
Last2Row = Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets(2).Cells(Last2Row, "A") = Cells(RowCtr, "A")
Sheets(2).Cells(Last2Row, "B") = Cells(RowCtr, "C")
Next QtyCtr
Next RowCtr
End Sub
Bookmarks