Pessoal, boa noite. Estou tentando usar uma macro de procv, mas estou tendo dificuldades com os resultados.
Gostaria de saber qual o problema na macro abaixo. Pretendo inserir o procv na celula F3 para baixo até as celulas da coluna A ficarem vazias.
O valor que quero que retorne está na planilha "damiano" , coluna C

Dim c As Long
Dim registro As Double
Dim Intervalo As Range
Dim i As Variant
'Instrução para que a macro não pare quando o valor não for encontrado
On Error Resume Next
c = 3
Do While Cells(c, 1).Value <> Empty
registro = Cells(c, 1).Value
'atribuição do intervalo
Set Intervalo = Worksheets("damiano").Range(Cells(1, 1), Cells(1048576, 6))
'célula correspondente da coluna B recebe valor se houver repetição
Cells(c, 6).Value = WorksheetFunction.VLookup(registro, Intervalo, 3, 0)
c = c + 1
Loop

Agradeço a ajuda!