Not complicated really - you'd need a worksheet activate event and a selection change one - something like the code below.
FYI, down IS the standard.
1: 2: 3: 4: 5: 6: 7:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, rnage("A:A")) Is Nothing Then Application.MoveAfterReturnDirection = xlDown Else Application.MoveAfterReturnDirection = xlRight End If End Sub