Код VBA - 66 тыс. Строк для анализа

Question

Я огромное количество данных для анализа! У меня есть таблица "Resolved Met" и столбец G с текстом, содержащим имя сервера, и таблица "Server List" с 66k именами серверов.

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

Я перешел к первой строке таблицы "Список серверов" и нашел ее в столбце, где текст с циклом

Прошло более 6 часов, чтобы проанализировать все, как только у меня есть 66 тыс. Строк имени и 130 тыс. Строк текста. Вот мой код У вас есть идея лучше сделать это быстрее?

Sub ()

i = 1
Sheets("Server List").Select
Range("A1").Select

servername = ActiveCell.Offset(i, 0).Value

Do Until IsEmpty(servername)

Sheets("Resolved Met").Select

        With Worksheets("Resolved Met").Range("G:G")
             Set server = .find(What:=servername, LookIn:=xlValues)
             If Not server Is Nothing Then
                firstAddress = server.Address
                Range(firstAddress).Select
                ActiveCell.Offset(0, 13) = servername


                    Do
                    Set server = .FindNext(server)
                    If server Is Nothing Then
                    GoTo DoneFinding2
                    End If
                    SecondAdress = server.Address
                    Range(SecondAdress).Select
                    ActiveCell.Offset(0, 13) = servername



                Loop While SecondAdress <> firstAddress
              End If
DoneFinding2:
        End With


Sheets("Server List").Select
i = i + 1
servername = ActiveCell.Offset(i, 0).Value

Loop