Last row with data in a column
 

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.

Last row with data in a column
 

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

--
Don Guillett
SalesAid Software

"fullers" wrote in message
...
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.

Last row with data in a column
 

Thanks very much Don.

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"fullers" wrote in message
...
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.

Last row with data in a column
 

glad to help

--
Don Guillett
SalesAid Software

"fullers" wrote in message
...
Thanks very much Don.

"Don Guillett" wrote:

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

--
Don Guillett
SalesAid Software

"fullers" wrote in message
...
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.