Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 29 And Target.Row < 6000 Then
If Cells(Target.Row, 7) <> "" Then Cells(Target.Row, 10).Select
If Cells(Target.Row, 10) <> "" Then Cells(Target.Row, 11).Select
If Cells(Target.Row, 11) <> "" Then Cells(Target.Row, 13).Select
If Cells(Target.Row, 13) <> "" Then Cells(Target.Row, 14).Select
If Cells(Target.Row, 14) <> "" Then Cells(Target.Row + 1, 7).Select
Else
Exit Sub
End If
End Sub