VLookup_vba

Sub check()
    Dim capital(3) As Variant
    capital(0) = "êàïèòàë"
    capital(1) = "ðåçåðâ"
    capital(2) = "äîñîçä"
    capital(3) = "íåäîñîçä"
    Dim j As Integer
    Dim check As Variant
    Count = 0
    Dim c As Range
    Dim firstAddress As String

    For i = 2 To 684
        find_name = Int(Workbooks(".xlsx").Sheets("Sheet1").Cells(i, 4).Value)
        sDescript = Application.VLookup(find_name, Range("B2:J754"), 2, 1)
        Debug.Print (VarType(Cells(i, 2).Value))
        check = IIf(IsError(sDescript), "", sDescript)
        If check = "" Then
            check = Cells(i, 12).Value
            Count = Count + 1
            'Debug.Print (i)
        End If
        'Debug.Print (check & " " & i)
    Next i
    Debug.Print ("IS" & " " & Count)
End Sub