Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a:a")) Is Nothing Then
Target.Offset(0, 1).Select
End If
If Not Intersect(Target, Range("b:b")) Is Nothing Then
Target.Offset(0, 4).Select
End If
End Sub