Переход на новую строку в Excel-е - VBA

Формулировка задачи:

Мне необходимо ввести список данных: код, имя, фамилия, адрес. Как заставить курсор переходить на новую строку после введения данных в последнюю колонку. Как должен выглядеть макрос и как его заставить работать?

Решение задачи: «Переход на новую строку в Excel-е»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
   If Len(Target.Value) > 0 Then Cells(Target.Row + 1, 1).Select
End If
End Sub
                        