copy number of rows based on a number

Does this help?

Sub Aafke()
Dim i As Long
For i = 2 To Range("C" & Rows.Count).End(3).row
    Cells(i, "D").Resize(, 2).Copy Sheets("another sheet").Range("A" & Rows.Count).End(3)(2).Resize(Cells(i, "C").Value)
Next i
End Sub