перемещать строки на другой лист, когда соответствующие данные вводятся в указанный лист

Question

Я заранее прошу прощения за вопрос, который я задаю, над моей головой.

У меня есть рабочая книга с несколькими вкладками. В настоящее время я использую этот код, чтобы переместить заполненную учетную запись и вкладку активной учетной записи на вкладку закрытой учетной записи

    Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 Then
  If Target = "sold" Then
    Application.EnableEvents = False
      nxtRow = Sheets("Loan Sales").Range("A" & Rows.Count).End(xlUp).Row + 1
       Target.EntireRow.Copy _
        Destination:=Sheets("Loan Sales").Range("A" & nxtRow)
       Target.EntireRow.Delete
 End If
 End If
 Application.EnableEvents = True
End Sub

объем, который мы делаем, сделал этот процесс трудоемким. то, что я пытаюсь сделать, это ввести номер счета в лист проданных ссуд и заставить его искать в рабочей книге указанный номер ссуды, вырезать всю строку, вставить его в самую нижнюю строку проданного ссуды и удалить исходную строку с активного листа.

Я ценю любые рекомендации, которые кто-либо может дать, я ни в коем случае не эксперт или даже близкий человек. просто смог собрать все, что мне было нужно, искал вокруг .... до этого.