What I endup doing was the following:
Range("A1").select
on error resume next
lRealLastRow = cells.find("*",Range("A1"),xlformulas,,xlbyrows,xlprevious).row

The above returns the last row used by the worksheet.

But in VBA code do you know (from excel) how to find the active cell?
John