Assuming entries begin in column A :
Range("A65536").Select
Selection.End(xlUp).Select
MsgBox ActiveCell.Row