É so fazer um loop na coluna B que funciona facil.

Na falta de mais detalhes, segue a forma básica conforme a linha da sua formula.

Sub VLookup_C3()
    Dim vrNum As String

    On Error Resume Next
    vrNum = CDbl(Range("C3").Value)
    
    vr1 = Application.WorksheetFunction.VLookup(CDbl(vrNum), Worksheets("Plan2").Range("B2:B202"), 1, 0)

    If vr1 = "" Then
        Range("C3").Offset(0, 1) = "NÃO"
    Else
        Range("C3").Offset(0, 1) = "SIM"
    End If
    
End Sub

[]s

Obrigado pela ajuda, irei testar para ver como se comporta.