Как создать макрос для сравнения А1 в 2 листах и ​​копирования содержимого смежных

Question

У меня есть 2 рабочих листа (WS1 - «ImportWS», а WS2 - «Disco + BLScope», в обоих листах есть имена в столбце A, и оба имеют столбец B со значением типа «Высокий уровень прыжков» или «высокий прыжок»).Мне нужно сравнить столбец WS Disco + BLScope A со столбцом ImportWS A, и, если совпадение найдено, скопировать смежное значение в столбце WS ImportWS «B» в столбец WS Disco + BLScope «B» в соответствующей совпавшей строке, а затем продолжитьпосмотрите, есть ли еще обновления в WS ImportWS и повторите.

В идеальном мире в конце появится всплывающее окно с указанием количества найденных / сделанных обновлений.

Я пробовал Vlookupsно это не работает, так как я хочу сохранить значение в WS Master, если совпадение не найдено.

Я нашел этот код (который составляет ядро ​​того, что мне нужно), который я пытался настроить, но я получаю ошибку времени выполнения в строке "lassrowAdd":

Sub CopyAdjacent()

Dim colStatus, lastrowAdd, lastrowRemove As Integer

colStatus = 2
lastrowAdd = Sheets(“ImportWS”).Cells(Rows.Count, 1).End(xlUp).Row

For i = 1 To lastrowAdd
        If Sheets(“ImportWS”).Cells(i, 1).Value = Sheets(“Disco + BLScope”).Cells(i, 1).Value Then
            Sheets(“Disco + BLScope”).Cells(i, colStatus).Value = Sheets(“ImportWS”).Cells(i, colStatus).Value
        End If
Next
End Sub

Так что в основномконечный результат будет следующим:

Рабочий лист Disco + BLScope будет иметь обновленное значение в соответствующих строках столбца B, если в рабочем листе ImportWS будет найдено обновление.

В конце макроса aпоявится всплывающее окно (это не обязательно) с указанием количества найденных / сделанных обновлений.

Надеюсь, что это имело смысл, пытался часами, но не могу взломать его, ваша помощь будет очень признательна.