Last row with data in a column

[Guest]

I am trying to improve my macro.

At the moment I have data in column A. It always starts in cell A1 and I
need to find the last row with data. At the moment I have the following code:

Cells(1, 1).Select
Selection.End(xlDown).Select
EndCell = ActiveCell.Row

I am trying to get away from actually selecting cells in a sheet if I can.
Is there some code that will find the last row for me?

Thanks in advance.

 

[Don Guillett]

lastcell=cells(rows.count,1).end(xlup).row

 

[Guest]

Thanks very much Don.

lastcell=cells(rows.count,1).end(xlup).row

 

[Don Guillett]

glad to help