Copy row to new tab and duplicate based on quantity

[GHOPF]

Not able to figure out based on similar posts, I don't have enough foundational macro knowledge.
Wanting to copy a row X times to another tab to print labels. If Onhand qty column D = 4 I want the row copied 4 times.
All rows on DATA1 tab starting on row 2 copied OnHand times to DATA2 tab starting on row 2. Simple but I can't get it.
Appreciate your help.

 

[Osvaldo Palmeiro]

Please, try this code.

Sub ReplicateData()
 Dim c As Range
  For Each c In Sheets("DATA1").Range("A2:A" & Sheets("DATA1").Cells(Rows.Count, 1).End(3).Row)
   c.Resize(, 11).Copy Sheets("DATA2").Cells(Rows.Count, 1).End(3)(2).Resize(c.Offset(, 3).Value)
  Next c
End Sub

 

[GHOPF]

Got it working and made my labels. I did have to paste values to DATA1 for it to work properly. DATA1 was references to the import tab. Thanks for posting this solution.