Copy Column with Dynamic Range to Another Sheet

[HotNumbers]

I have searched many prior posts on this subject but i have gotten no ware. I am trying to copy a column that will be dynamic is size from one sheet to another. for example

I currently have 1,200 rows of data in Column D4 on Sheet1 that I need to copy to A1 in Sheet2.

The issue i am having the next time i run the macro Sheet1 data for Column D4 will have more data example 2,500 rows of data.

Any ideas would help narrow down my options.. examples would be great.

Thanks in advance to anyone who replies.

 

[AlphaFrog]

    Dim Lastrow As Long
    Lastrow = Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Row
    Sheets("Sheet2").Range("A:A").ClearContents
    Sheets("Sheet2").Range("A1:A" & Lastrow - 3).Value = Sheets("Sheet1").Range("D4:D" & Lastrow).Value

 

[HotNumbers]

Thanks for the quick reply. This is probably the shortest code there could be for something so important.

Thanks again....