Как выбрать каталожные номера? - VBA

Формулировка задачи:

Всем здравствуйте! Подскажите, как решить следующую задачу. Есть 2 листа Excel. На одном листе остатки товара - наименование и каталожный номер товара в одной ячейке. На втором листе заявка, в которой каталожный номер выделен в отдельный столбец. Можно ли сделать так, чтобы на листе Остатки выбрать каталожные номера в отдельный столбец, но только те, которые присутствуют в листе Заявка? Строк довольно много - около 14000. Файл прилагаю. Спасибо.

Решение задачи: «Как выбрать каталожные номера?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Поиск_номера_и_разбивка()
    Dim i&, j&, A, B
    B = Worksheets("Заявка").[A1].CurrentRegion.Value
    With Worksheets("Остатки")
        A = Intersect(.UsedRange, .Columns("A:B")).Value
        For i = 2 To UBound(A)
            For j = 2 To UBound(B)
                If IsEmpty(A(i, 1)) Or IsEmpty(B(j, 2)) Then
                ElseIf InStr(1, A(i, 1), B(j, 2), vbTextCompare) > 0 Then
                    A(i, 1) = Trim(Replace(A(i, 1), B(j, 2), "", , , vbTextCompare))
                    A(i, 2) = B(j, 2)
                    Exit For
                End If
            Next j
        Next i
        Intersect(.UsedRange, .Columns("A:B")).Value = A
    End With
End Sub