Extend A2 to last entry in Col A

[Galceran]

I have a Workbook with 6 worksheets. Sheet 2009 is a database of names and associated data. Sheet Password is a list of encrypted passwords. Sheet Whitelist is a list of E-mail addresses.
I manually add a name(s) and other details to 2009. Then encrypt the password with an online generator, copy/paste the result to Sheet Password.
At this stage a Macro runs sorting the sheets in Alphabetical sequence, formats them in different ways. Sorts Whitelist and 2009 Saving 2009 as CSV file for OE Address book.
I then Block Col A in sheet Password, copy/paste to HTML-Kit for FTP upload.
Followed by Block Col A in Whitelist, copy/paste to HTML-Kit for FTP upload.
What I want the macro to do is after finishing in sheets Password and Whitelist Block A2 down to the last entry ready for me to right clik and Copy. With over 400 entries it is becoming time consuming to do it manually.
Only the last para is the problem!!

Thanks
Gilbert

 

[VoG]

Is it?

Sub test()
Range("A2", Range("A" & Rows.Count).End(xlUp)).Select
End Sub

 

[WinteE]

Hi Gilbert,

Try this :

    i = Cells(Worksheets("2009").Cells.Rows.Count, "A").End(xlUp).Row
    Worksheets("2009").Range("A2:A" & i).Locked = True

 

[Galceran]

VoG

Thanks for that. Does the job.

WintE Thanks also.

Gilbert