Вопрос:

При вводе имени листа в столбец D строка записи должна быть перемещена на соответствующий лист

Ответ:

Вставьте следующий код в модуль This Workbook.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim wks As Worksheet

Dim intRow As Integer

If Target.Column <> 4 Then Exit Sub

If IsEmpty(Target) Then Exit Sub

On Error Resume Next

Set wks = Worksheets(Target.Value)

If Err > 0 Or wks Is Nothing Then

MsgBox "Sheet name Not Found!"

Exit Sub

End If

On Error GoTo 0

With wks

intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1

.Range(.Cells(intRow, 1), .Cells(intRow, 3)).Value = _

Range(Cells(Target.Row, 1), Cells(Target.Row, 3)).Value

End With

Rows(Target.Row).Delete

End Sub