Active cell

[Patrick Simonds]

How can I get the last cell (with data in it) in column A to be the active
cell

 

[Tom Ogilvy]

set rng = Cells(rows.count,1).End(xlup)
rng.Activate