Срочно, помогите пожалуйста при копировании

[olik111]

Есть лист ексель с данными, один столбец пустой, как только в какую-нибудь ячейку этого столбца внесут данные, строка с этой ячейкой должна скопироваться в первую пустую строку другого листа, при помощи макроса все получается,но макрос надо каждый раз запускать, как сделать это в Private Sub Worksheet_Change(ByVal Target As Range), т.е. автоматом при внесении изменений.
Макрос имеет след вид:
Public Sub gotovie()
Dim i As Integer
Sheets("Выполняемые").Select
Application.ScreenUpdating = False
For i = 6 To 10000
If Sheets("Выполняемые").Cells(i, 7).Value <> "" Then
Sheets("Выполненные").Select
If Cells(i, 1).Value = "" Then

' Sheets("Выполненные").Cells(i, 1).Value = Sheets("Выполняемые").Cells(i, 1).Value
Sheets("Выполненные").Cells(i, 2).Value = Sheets("Выполняемые").Cells(i, 2).Value
Sheets("Выполненные").Cells(i, 3).Value = Sheets("Выполняемые").Cells(i, 3).Value
Sheets("Выполненные").Cells(i, 4).Value = Sheets("Выполняемые").Cells(i, 4).Value
Sheets("Выполненные").Cells(i, 5).Value = Sheets("Выполняемые").Cells(i, 5).Value
Sheets("Выполненные").Cells(i, 6).Value = Sheets("Выполняемые").Cells(i, 7).Value
Sheets("Выполненные").Cells(i, 7).Value = Sheets("Выполняемые").Cells(i, 9).Value
End If
End If
Next
End Sub
Когда этот код вставляешь в Private Sub Worksheet_Change, работает совсем не правильно, подскажите пожалуйста как сделать

[Sweety]

Вставить свой код программы между строчками:

Private Sub Worksheet_Change(ByVal Target As Range)
...
End Sub

[olik111]

Спасибо большое, вы очень мне помогли

[olik111]

а как сделать чтобы из первого листа строка которая переходит во второй удалялась

[olik111]

Удалить строку, но только у меня в последнем столбце гиперссылка как сделать чтобы при копировании она сохранялась, и была активна на втором листе

[olik111]

нет все верно, так будет проще, ненужные столбцы легко скрою

[olik111]

можно еще вопрос, на этом листе нужно еще одно условие, если сегодняшняя дата равна одной из дат в столбце 5, то вырезаем эту строку и вставлем на листна лист ("Просроченные"), подскажите как это сделать и куда вставить в программе,