Macro to copy and paste

[Mxer911]

So here is my problem.

I need to create a macro that will copy and paste row 1, "x" number of times on sheet 2, and after it has done that move to row 2 and copy and paste it "x" number or times on sheet 2.

"x" will be a value stored in lets say column D

Here is an example of how the data will start:

Here is an example of how the data will finish:

This may be a simple task but I just can't seem to wrap my head around it this morning. As usual any and all help is greatly appreciated.

Thanks in advanced

 

[swaroop]

This should help
Might be messy - as Im still learning

Sub neww()
Application.ScreenUpdating = False
i = 2 'as your QTy starts from D2
x = Sheets("Sheet1").Range("D" & i)
n = 1
Sheets("Sheet1").Activate
Do While x <> ""
Range("A" & i & ":D" & i).Copy
Do Until n > x
Lngrow = Sheets("Sheet2").Range("A65536").End(xlUp).Row + 1
Sheets("Sheet2").Activate
Range("A" & Lngrow).PasteSpecial
n = n + 1
Loop
n = 1
i = i + 1
x = Sheets("Sheet1").Range("D" & i)
Sheets("Sheet1").Activate
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True