Аналог поискпоз - VBA

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

Здравствуйте необходимо найти кода договора на листе M и если они есть в списке столбца А правее нужно поставить число 9018. (типа поискпоз) но нужно сделать это макросом приложил файл спасибо заранее извиняюсь что нет наброшенного кода, гдето в персонале потерял его...

Решение задачи: «Аналог поискпоз»

textual
                            Листинг программы 
                        

                            Sub pr()
    Dim a(), b(), m(), t$
    With ActiveSheet
        a = Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
        m = Range(.Cells(2, "M"), .Cells(.Rows.Count, "M").End(xlUp))
    End With
    ReDim b(1 To UBound(a), 1 To 1)
    With CreateObject("Scripting.dictionary") 
        For Each el In m
            t = el: .Item(t) = 0
        Next
        For i = 1 To UBound(a)
            t = a(i, 1)
            If .exists(t) Then b(i, 1) = 9018
        Next
    End With
    Cells(2, 2).Resize(UBound(b), 1) = b
End Sub
                        