'match or find value from sheet 1 and sheet 2

i have this code that checks if the value from h22 matches from entries in column i. how can i change the codes that it should check if h22 is an exact match with the last value on column i?

Option Explicit

Sub Macro()

    Dim oWs As Worksheet
    Dim rSearchRng As Range
    Dim lEndNum As Long
    Dim vFindVar As Variant
    
    Set oWs = ActiveWorkbook.Worksheets("Sheet2")
    lEndNum = oWs.Range("I1").End(xlDown).Row
    Set rSearchRng = oWs.Range("I1:I" & CStr(lEndNum))
    Set vFindVar = rSearchRng.Find(Range("H22").Value)
    
    If Not vFindVar Is Nothing Then
        MsgBox "Match"
    Else
        MsgBox "No Match Found"
    End If
    
End Sub


Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution Source