VBA to select and copy column to last row

[Finalfight40]

Hi All

I am trying to create a macro but i am stuck with what i am assuming is a line or 2 of code. I have tried to google this but cant find exactly what i am looking for.

I am having a problem where i need to select and copy the data from cell A3 to the last row, in this case to A8. However there may be 5 entries or 1000 entries which i need to select.

Any help here is much appreciated.

	A
1
2	NAME
3	Alex
4	Bob
5	Jessy
6	Ben
7	Joe
8	Elliot
9

<tbody>
</tbody>

 

[Norie]

This will copy from A3 to the last row in column A.

Range("A3", Range("A" & Rows.Count).End(xlUp)).Copy

 

[Finalfight40]

This will copy from A3 to the last row in column A.

Range("A3", Range("A" & Rows.Count).End(xlUp)).Copy

Thank you so much!

I can hopefully carry on with the rest of it now.

 

[My Aswer Is This]

Try this:

Sub Test()
'Modified 5/8/2018 7:03 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A3:A" & Lastrow).Copy
Application.ScreenUpdating = True
End Sub

 

[Finalfight40]

Try this:

Sub Test()
'Modified 5/8/2018 7:03 AM  EDT
Application.ScreenUpdating = False
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Range("A3:A" & Lastrow).Copy
Application.ScreenUpdating = True
End Sub

Also works very well thank you

Can i just ask if there would be a benefit to using one code over the other here?

 

[My Aswer Is This]

Also works very well thank you

Can i just ask if there would be a benefit to using one code over the other here?

Not really. Unless your concerned about 1 100th of a millisecond. Maybe not even that much.

 

[Finalfight40]

Not really. Unless your concerned about 1 100th of a millisecond. Maybe not even that much.

Nope defo not concerned about that

Thanks for coming back to me