Loop range copy based on previous column

I want to copy what's on D column and stop from the last row of column A and paste it on column F. I already tried this code, but its not working. i don't know what am i missing.?

Dim lastrow As Long
Dim Last_Row As Long

Last_Row = Range("A" & Rows.Count).End(xlUp).Row
lastrow = Cells(Rows.Count, "D").End(xlUp).Row

Range("D2").Resize(lastrow).Copy Range("F2" & Last_Row)

Thanks for the usual help!