Create new rows based on numbers in cells

Hello,

I am hoping to redesign the way I use Excel to keep inventory of things. Currently we have one row for every type of part, but I want to change it so that there is one row for every individual physical item. Example:

Current system:

Part	Made By	Quantity On Hand
Part A	Company 1	3
Part B	Company 1	1
Part C	Company 2	2

Desired:

Part	Made By	Quantity On Hand
Part A	Company 1
Part A	Company 1
Part A	Company 1
Part B	Company 1
Part C	Company 2
Part C	Company 2

So what the macro would need to do is insert n-1 rows beneath each initial row, where n is the current quantity on hand (stored in column C), and then copies down the part name and manufacturer. Is it possible to write a macro that is capable of doing that?

Sub expand()
r = 3
While Sheets(1).Cells(r, 1) <> ""
  j = Sheets(1).Cells(r, 3)
  If j > 1 Then
    For r2 = 2 To j
      Rows(r + 1 & ":" & r + 1).Select
      Application.CutCopyMode = False
      Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Sheets(1).Cells(r, 3) = 1
      For x = 1 To 3
        Sheets(1).Cells(r + 1, x) = Sheets(1).Cells(r, x)
      Next x
    Next r2
End If
r = r + j
Wend


End Sub