Função VLookUP

[menezes7]

Olá,

Tenho um arquivo com duas planilhas ("Planilha1" e "Planinha2").

Na planilha1, tem uma tabela "A1:O2" (2 linhas, 14 colunas), sendo a primeira linha o cabeçalho.

Estou tentando inserir um código que atualize o valor de cada célula da linha 2 com um procv com base no valor inserido na célula imediatamente anterior a ela, porém está gerando erro.
O procv busca o valor na planilha2 

Segue código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i, j As Integer
Dim TabelaFonte As Range

i = Target.Column
j = 3
TabelaFonte = Application.Sheets("Planilha4").Range(Cells(3, 119 + j - 1), Cells(2649, 148))

If Not Intersect(Target, Range("B2:O2")) Is Nothing Then
                         
    For j = i + 1 To 14
    Cells(2, j).Value = Application.WorksheetFunction.VLookup(Cells(2, j - 1).Value, TabelaFonte, 2, False)
    Next

End If

End Sub

 

O link do arquivo é o:

https://www.sendspace.com/file/ixo3qd