Actually the last row is simpler than that. (also you had a couple of typos)
You just need
Dim lastrow as long
lastrow = ActiveSheet.Range("A65536").End(xlUp).Row
there is no need to move the cursor at all.
This assumes the last row will have data in col A.