Duplicates based on count|VBA & Macros|Excel Forum|My Online Training Hub

Try this, outputs the detail to column M & N

Sub RepeatDown()

Dim R As Range
Dim C As Range
Dim Product As String
Dim NextRow As Integer
Dim ProductQty As Integer

Dim i As Integer

Set R = Range("A2:a7")

For Each C In R

NextRow = Cells(Rows.Count, 13).End(xlUp).Row

Product = C.Value
ProductQty = C.Offset(0, 1).Value

For i = 1 To ProductQty
With Range("m" & NextRow + i)
.Value = Product
.Offset(0, 1).Value = i
End With
Next i

Next C

End Sub