Нахождение точного совпадения динамической текстовой строки в определенной ячейке с помощью функции instr

Question

Я создал цикл, который просматривает таблицу и вставляет значения (если они есть) в определенные ячейки в другой таблице

Мне нужно, чтобы найденные текстовые значения были вставлены в Sheet7.Cells(r, "G"), но только если точная текстовая строка там больше не существует. Проблема в том, что текстовые значения очень похожи, но они разные. Мой текущий код не добавляет некоторые из них, вероятно, потому что он думает, что они уже вставлены в ячейку, поскольку некоторые слова повторяются. Есть ли способ решить эту проблему?

Do While k < 119 And r < 118

        access = Sheet3.Cells(i, k)

            If access <> "" Then

              If Sheet7.Cells(r, "G") <> "" And InStr(Sheet7.Cells(r, "G"), access) = 0 Then
              Sheet7.Cells(r, "G") = Sheet7.Cells(r, "G") & vbNewLine & access
              Else: Sheet7.Cells(r, "G") = access
              End If

              If Sheet7.Cells(r, "F") <> "" Then
              Sheet7.Cells(r, "F") = Sheet7.Cells(r, "F") & vbNewLine & Sheet3.Cells(i, "C")
              Else: Sheet7.Cells(r, "F") = Sheet3.Cells(i, "C")
              End If

          End If

         k = k + 1
         r = r + 1 

        Loop