Copy/Paste Data from Sheet1 to Sheet2

I have a list in Column A of Sheet 1 with more than 3000 entries. This list is updated constantly.
I want to put Column A from Sheet 1 to Column A4 in Sheet 2, with the option to for the program to figure out end of row and copy only till the last row.

I've tried couple of VBA codes but it does not work properly. P.S. I am not good with VBA, just basic understanding.

Thanks for your help. Really appreciate it.

Thank you for a quick reply.

There is a problem with this code. So what I did is I made it into a button. Now every time I press the button the code only executes 3 rows at a time. In others words every time I press the button it shows 3 new rows, not all of the column from sheet 1 !@#$%^??

Still every time I run it, shows three new rows at a time. Is there another way to write this code?

Its giving me 2307, which I think is the number of rows I have in Sheet 1.

I tired the first code you provided again. And this time it is working fine. Now it is outputting the whole Column properly.

Although I am running into another problem. When I add one more row and refresh the macro it outputs with that row. Great! But when I delete that new row and run it again. That new row is still there. So I am assuming that it is not clearing Column A from Sheet 2 before refreshing. How can I accomplish that.

Humdingaling, really appreciate your help.