Public Sub www()
     Dim d As Object, i&, a, b
     Dim sh As Worksheet, sh1 As Worksheet
     Set sh = Sheets("1"): Set sh1 = Sheets("2")
     Set d = CreateObject("scripting.dictionary")
     a = sh.[a1].CurrentRegion.Columns(1)
     b = sh1.[a1].CurrentRegion.Columns(1)
     For i = 1 To UBound(a)
         d.Item(a(i, 1)) = i
     Next
     For i = 1 To UBound(b)
         If d.exists(b(i, 1)) Then
             sh1.Range(sh1.Cells(i, 2), sh1.Cells(i, 10)).Copy sh.Cells(d.Item(b(i, 1)), 11)
             sh.Range(sh.Cells(d.Item(b(i, 1)), 1), sh.Cells(d.Item(b(i, 1)), 20)).Copy Sheets("готовое").Cells(Rows.Count, 1).End(xlUp)(2)
         Else
             sh.Range(sh.Cells(i, 1), sh.Cells(i, 10)).Copy Sheets("обработка").Cells(Rows.Count, 1).End(xlUp)(2)
             sh1.Range(sh1.Cells(i, 1), sh1.Cells(i, 10)).Copy Sheets("без совпадений").Cells(Rows.Count, 1).End(xlUp)(2)
         End If
     Next
     Set d = Nothing
End Sub