try
Dim i as integer

i= Cells(iRowNo,iColumnNo).End(xlDown).Row

and You'll get the number of last row, in the given column, containing data.
Or You may try
i=UsedRange.Rows.Count
and You'll get the number of last row containing any data in the whole
worksheet

"COM" wrote in message
...
Without looping through all the cells in a column, how can I determine the
last cell that has data in it for a given column?