Sub Add_Sell()
    Worksheets("Ввод данных").Range("A6:F6").Copy                         'копируем строчку с данными
    n = Worksheets("Данные").Range("A100000").End(xlUp).Row                'определяем номер последней строки в табл. Продажи
    Worksheets("Данные").Cells(n + 1, 1).PasteSpecial Paste:=xlPasteValues 'вставляем в следующую пустую строку
    With Worksheets("Данные (2)")
      n = .Range("A100000").End(xlUp).Row + 1
      Range("B6").Copy .Range("A" & n)
      Range("E6:F6").Copy .Range("B" & n)
    End With
End Sub

Worksheets("Ввод данных").Range("A6").Copy Worksheets("Персональные данные").Cells(n + 1, 1)

Sub Poisk() 'вписали номер договора в ячейку A6 на листе Ввод данных и запустили макрос Poisk
Dim Dogovor As String
Dim FoundDogovor As Range
Dim FoundDogovor2 As Range
  Dogovor = Range("A6")
  With Worksheets("Движение")
    Set FoundDogovor = .Columns("A").Find(Dogovor, , xlValues, xlWhole)
    If Not FoundDogovor Is Nothing Then
      .Range(.Cells(FoundDogovor.Row, "B"), .Cells(FoundDogovor.Row, "G")).Copy Range("B6")
         'ищем номер договора на листе Персональные данные
      Set FoundDogovor2 = Worksheets("Персональные данные").Columns("A").Find(Dogovor, , xlValues, xlWhole)
      Worksheets("Персональные данные").Range(Worksheets("Персональные данные").Cells(FoundDogovor2.Row, "C"), _
      Worksheets("Персональные данные").Cells(FoundDogovor2.Row, "K")).Copy Range("H6")
    Else
      MsgBox "На листе Движение нет номера договора: " & Dogovor
    End If
  End With
End Sub