Sub LastRow()
'By going to the last row in Excel and then moving up (like Control-UpArrow in
Excel), you will find the data you are looking for
YourValue = Range("A65536").End(xlUp).Value
Message = MsgBox("The data in the last row is: " & YourValue)
End Sub