If you use the selection object it isn't too complex.
Code:
Sub GetUp()
Dim aCell As Cell, aRng As Range
Set aRng = Selection.Range
Selection.Range.Cells(1).Select
Selection.MoveUp
If Selection.Range.Cells.Count = 1 Then
Debug.Print Selection.Range.Cells(1).Range.Text
Else
Debug.Print "No cells immediately above selection"
End If
aRng.Select 'restore selection
End Sub