Cannot get loop within a loop to work

Hi All,

I am trying to get the below code to work how I want it to work. I have tried various things to try and resolve the issue.

Sub Macro1()
Dim i As Integer
Dim j As Integer

Range("A1").Select

For i = 1 To 10
For j = 1 To 5
Cells(i, 1).Copy
Cells(j, 4).PasteSpecial
Next j
Next i

End Sub

Basically, in cell A1 to A10 I have values going from Q1 to Q10. I then want to copy Cell A1 (i.e. value ="Q1") and paste it into 5 times into Cells D1 to D5, then I want to copy cell A2 (Value = "Q2") and copy and paste it in cells D6 to D10, then A3 into D11 to D15 and so on until I reach cell A10 (Value = Q10).

The code above, unfortunately just means it keeps recording in cells D1 to D5.

Any help would be greatly appreciated.

Kind regrads,

forrestgump