Private Sub Worksheet_Change(ByVal Target As Range)
'Check which cell was changed
If Intersect(Target, Range("B:C")) Is Nothing Then Exit Sub
'Don't do anything if multiple cells changed
If Target.Count > 1 Then Exit Sub
'Setup how cursor should move
Select Case Target.Column
Case 2
Target.Offset(, 1).Select
Case 3
Target.Offset(1, -1).Select
End Select
End Sub