У меня проблемы с переходом на другие столбцы в VBA Excel

Question

У меня есть 1 книга Excel, в которой на рабочем листе 1 (ws1) есть столбец A с текстом типа: Исходный файл , и мне нужно найти несколько слов, содержащихся в той же книге, но в другом листе ws2: слова для поиска Результат, который я хочу получить: ожидаемый результат

В VBA я делаю:

ActiveWorksheet - это ws2

Row = 2
Col = "A"
Row2 = 2
Col2 = "B"
x = 1
Range(Col & Row).Activate
ws1.Range(Col2 & 1).Value = ActiveCell.Value
While ActiveCell.Value <> 0
        While ws1.Range("AA" & Row2).Value <> 0
            If InStr(1, ws1.Range("AA" & Row2), ActiveCell.Value) Then
                 ws1.Range(Col2 & Row2).Value = ActiveCell.Value
                   Row2 = Row2 + 1
            Else
                ws1.Range(Col2 & Row2).Value = "N/A"
                ws1.Range(Col2 & Row2).Interior.Color = RGB(1, 150, 150)
                Row2 = Row2 + 1
            End If
        Wend
        Col2=Col2+1
        Row = Row + 1
        Range(Col & Row).Activate
Wend

Но мне не удается перейти ко второму столбцу & + и начать проверку заново.Есть идеи?

Заранее спасибо!