title: copy rows multiple times (given in a cell) and add unique id number based on cells
body: <p>I have a big table containing data like this one (ProductName, ProductId, RepeatNumber)</p>
  
  <p><a href="https://i.stack.imgur.com/S4WTR.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/S4WTR.jpg" alt="enter image description here"></a></p>
  
  <p>I would like to create a new dataset on a new Sheet (Sheet2). The macro would copy data from Sheet1 and it would Insert rows as many times as it can be seen in the column C (the enclosed macro can already do that) but i would like to place these data on a new Sheet (Sheet2) and to give an ItemId in the Column B on the new sheet (on Sheet2) which is created by ProductID. 
  The first 5 character of the ItemId is the same as the ProductId and the last two one is 01, 02, 03 and so on until the repeatnumber.</p>
  
  <p><a href="https://i.stack.imgur.com/L8chB.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/L8chB.jpg" alt="enter image description here"></a></p>
  
  <p>Since these original data on Sheet1 are changing continously, that is new rows are added on Sheet1, i would like an input box for giving the rownumber from where the macro needs to run.
  The first data (created by the macro) would be placed in the last nonempty rows of the column A of Sheet2.
  First time the input value would be 2 (the macro needs to run from the second row).</p>
  
  <p>How can i create that special ItemId on the new Sheet as many times as i need?</p>
  
  <p>Thanks in advance.</p>
  
  <p>I have macro like this:</p>
  
  <pre><code>Sub Multicopy()
  
  Dim xRow As Long
  
  Dim RepeatNum As Variant
  
  xRow = 1
  
  Application.ScreenUpdating = False
  
  Do While (Cells(xRow, "A") &lt;&gt; "")
  
      RepeatNum = Cells(xRow, "C")
  
      If ((RepeatNum &gt; 1) And IsNumeric(RepeatNum)) Then
  
         Range(Cells(xRow, "A"), Cells(xRow, "C")).Copy
  
         Range(Cells(xRow + 1, "A"), Cells(xRow + RepeatNum - 1, "C")).Select
  
         Selection.Insert Shift:=xlDown
  
         xRow = xRow + RepeatNum - 1
  
      End If
  
      xRow = xRow + 1
  
  Loop
  
  Application.ScreenUpdating = False
  
  End Sub
  </code></pre>