Ускорение функции сопоставления vba

Question

Я использую следующий код для сопоставления номеров материалов поступающих товаров (~ 100 каждый день в «Входе») со списком номеров материалов отделов, чтобы определить, какие отделы будут затронуты (7 отделов с ~ 150 номерами материалов в каждом в раскрывающемся списке) ). Соответствующие строки затем копируются в соответствующие листы.

Sub Copy()
Worksheets("Input").Activate
    Dim var As Variant, I As Long
       For I = 2 To Rows.Count
                var = Application.Match(Cells(I, 2).Value, Worksheets("Dropdown").Columns(2), 0)
                If Not IsError(var) Then
                 Rows(I).Copy Destination:=Range("Tabelle1").ListObject.ListRows.Add.Range
                 Rows(I).Copy Destination:=Range("Tabelle9").ListObject.ListRows.Add.Range
                End If
         Next I
End Sub

Затем макрос повторяется в слегка измененной форме для 6 других таблиц. Таблица 9 - это сводка, в которой хранятся все совпадения. Подпрограмма работает около 1 часа, и я не могу сохранить данные из-за того, что другой человек использует Sharepoint excel, что бесит. Как я могу улучшить или изменить код, чтобы быстрее сопоставить ~ 200 номеров материалов? Заранее спасибо