Não entendi o que pretende, mas o erro deve-se ao fato de tentar utilizar um comando inexistente --> Apllication.WorksheetFunction; o correto é -->Application.WorksheetFunction

Prezado Reinaldo,

Primeiramente muito obrigado pela resposta! Outros olhos quando analisam nossos problemas, conseguem enxergar detalhes que as vezes não conseguimos visualizar.

Fiz a substituição da informação que mencionou mas, o problema ainda persistiu.

Sou um profissional da área Fiscal e Contábil e, estou confeccionando detalhes de uma obrigação acessória Federal. As informações que encontram-se no código, são específicos dessa determinada obrigatoriedade.

Caso não for incomoda-lo e puder auxiliar-me, ficarei muito grato!
Assim com outros colegas do fórum se puder ajudar, agradecerei!

Deus abençoe sua vida!

Conforme regras do fórum, os anexos devem ser upados compactados (zip,rar 7z....)
Nesse segundo anexo está conforme o primeiro, não foi corrigido a escrita do comando Correto é Application e não Apllication

Conforme está sua rotina, não sai da primeira celula.
altere conforme abaixo e veja se atende

Sub conta_referencial()

Dim x As Integer

x = 2

With Worksheets("Sheet2")
    Do Until .Cells(x, 2) = ""
    
        If .Cells(x, 2) = "J050" And .Cells(x, 5) = "A" And .Cells(x + 1, 2) = "J050" Then
        
            Rows(x + 1).Insert
            
            .Cells(x + 1, 2) = "J051"
            
            
        ElseIf .Cells(x, 2) = "J051" Then
            
               .Cells(x, 4) = Application.WorksheetFunction.VLookup(.Cells(x - 1, 7) * 1, Worksheets("Sheet1").Range("A2:B99"), 2, False)
                                   
        End If
    x = x + 1
       
    Loop
End With
End Sub

Prezado Reinaldo,

Muito obrigado, deu certo!

Como argumentei no início, não sou um programador propriamente dito. Minha última dúvida, qual é a função da instrução With que utilizou perante ao código? Só para eu entender a lógica.

Agradeço mais uma vez!