AjHottz,

Bom Dia!

Troque sua linha:

Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 12).Value = Application.WorksheetFunction.VLookup(("lUltimaLinhaAtiva,1"), (Worksheets("Cadastro de Produtos").Range("a1:b100000")), 2, False)

Por esta:

 Worksheets("Registro de Inventário").Range("L" & lUltimaLinhaAtiva).FormulaLocal = "=PROCV(A" & lUltimaLinhaAtiva & ";'Cadastro de Produtos'!$A$1:$B$100000;2;FALSO)"

Por algum motivo que não sei dizer qual, o VBA não aceita inserir a função SEERRO. Mas como você está inserindo a função na linha ativa... não vejo maiores problemas.

Bom dia!!

Uma boa ideia seria usar uma formula nativa do excel.

Substituir por vazio o erro.

Exemplo fictício.

With Sheets("SuaGuia").Range(Cells(3, ActiveCell.Column), Cells(Sheets("SuaGuia").Range("A" & Rows.Count).End(3)(1).Row, ActiveCell.Column))
        .Formula = "=VLOOKUP(A3,'TIPO'!$B$10:$S$" & Sheets("SuaOutraGuia").UsedRange.Rows.Count & ",18,FALSE)"
        .Value = .Value
        .Replace "#N/A", ""
    End With

Att