Loop range copy based on previous column

I'm really trying, hehe... maybe this code might help, but still not my desired result.

Private Sub CommandButton1_Click()
Dim lastrow As Long
i = 1
lastrow = Cells(Rows.Count, "D").End(xlUp).Row

Do While Cells(i, 1).Value <> ""
Range("D2").Resize(lastrow).Copy Range("F2")
i = i + 1
Loop
End Sub

the only lacking is that its not pasting the data (data from D2 until last row) to column F until the last row of column A.