Quote Originally Posted by swatsp0p
Use this code:[vba]Sub lastrow()
Dim rRng As Range
Set rRng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
With rRng.Offset(rRng.Count, 0).Resize(1, 1).Select
End With
End Sub[/vba]

places cursor in cell A99999 where 99999=the first row below the last entry in column A
Of course for Column B, simply change the reference in the above code from 'A' to 'B' each place it occurs.

Also, I forgot to mention that if you want to skip 1 or more rows below the last entry, adjust the "Offset(rRng.Count, 0)" by changing the zero to as many rows as you want to skip. e.g to leave 2 blank rows, change the zero to a 2. If the last active row was 100, the cursor would be placed in 103 (skipping 101 & 102).

You can assign this code to a button or simply run it by pressing Alt+F8 and selecting "lastrow" from the list.

Does this work for you?