Excel VBA код падает при добавлении i = i + 1

Question

Прежде всего, я не очень опытен в кодировании VBA, поэтому приношу свои извинения, если этот вопрос излишний.

В данный момент мой код просто падает или, скорее всего, останавливается после того, как я его запустил.

Цель моего кода - просто сравнить ячейку с одного листа с ячейкой второго листа, если они совпадают с другой ячейкой со второго листа, необходимо скопировать на первый лист. Я хочу, чтобы код циклически проходил по каждой ячейке второго листа, пока не нашел совпадение, и только затем перешел к следующей ячейке на первом листе.

Однако, когда я добавляю свой счетчик (i = i + 1) в оператор if, код больше не работает и останавливается.

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim Label As String
Dim Blindnumber As String
Dim Animal As String
i = 8
j = 8

Do While ThisWorkbook.Sheets(2).Cells(i, 1).Value <> ""
    Label = ThisWorkbook.Sheets(1).Cells(i, 1).Value
    Blindnumber = ThisWorkbook.Sheets(2).Cells(j, 1).Value
    Animal = ThisWorkbook.Sheets(2).Cells(j, 2).Value
    If Label = Blindnumber Then
        ThisWorkbook.Sheets(1).Cells(i, 5).Value = Animal
        i = i + 1
    Else
        j = j + 1
    End If
j = 8
Loop

End Sub

Мне нужно, чтобы значение i увеличилось на 1, только когда метка соответствует слепому числу если нет, мне нужно увеличить значение j на 1 и повторить процесс

Я застрял в тот момент, когда Excel останавливается, что задерживает метод проб и ошибок при исправлении моего кода. Если бы кто-то мог помочь мне и сказать, что я делаю неправильно в своем коде, это было бы очень признательно!