Outro montagem de macro no excel - nao consigo achar o erro

[Rafaela G. Rauber]

Bom Dia!  Eu montei uma macro e ela não deu certo, a intenção era realizar o seguinte:

Preciso que ela compare uma célula da coluna 3 (iniciando pela célula 2 e vai aumentando) sempre com a célula 1 da coluna 18 e se ela for igual copiar os valores da coluna 6 para a coluna 18 (na mesma linha), se for diferente ela deve tentar comparar com a próxima coluna 18+1 e realizar a mesma função de copiar a coluna 6 para esta.

Não esta rodando e eu não estou conseguindo achar o erro, alguém pode me ajudar?

A planilha está em anexo pra tentar entender melhor, preciso copiar o LS para a coluna com o nome da espécie, porém a informação precisa continuar na mesma linha.

A macro roda e faz apenas poucas espécies.

 

Sub Macro1()
'
' Macro1 Macro
'

Dim Gabriel
Dim Coluna

Do While Gabriel < 24505
Do While Coluna < 56

    If Cells((2 + Gabriel), 3) = Cells(1, (18 + Coluna)) Then
        
        Cells((2 + Gabriel), (18 + Coluna)).Value = Cells((2 + Gabriel), 6)
    
    Else
    
        Coluna = Coluna + 1
        Gabriel = Gabriel - 1
    
    End If

    Gabriel = Gabriel + 1

Loop

'
End Sub
 

Pasta1.xlsx