Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(2)) Is Nothing Then Target.Offset(0, 3).Select
If Not Intersect(Target, Columns(5)) Is Nothing Then Target.Offset(0, 3).Select
If Not Intersect(Target, Columns(8)) Is Nothing Then Target.Offset(1, -6).Select
End Sub