Copy data from sheet1 to sheet2 when refresh

I am trying to copy data from sheet1 to sheet2 when the sheet is refreshed. My code is not working. Please help! Many thanks!

Sub copy()
If Worksheets("sheet1").RefreshAll = True Then
Worksheets("sheet1").Range("d1:d" & Range("d1").End(xlDown).Row).copy _
Destination:=Worksheets("sheet2").Range("D1")
End If
End Sub