Perhaps something like this in worksheet module?
Private Sub Worksheet_Activate()
Range("B" & Rows.Count).End(xlUp).Select
End Sub