Pesquisar na Comunidade

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