Trying to campare two columns with another 2 columns

I tested this code on your sample file:

Private Sub FindDoubleMatches()

   Dim LookupTable As Range
   Dim R As Long ' row number
   Set LookupTable = Range("I5:J9")
   
   R = 1
   Do While Cells(R, "A") <> ""
      If PairIsFound(LookupTable, Cells(R, "A"), Cells(R, "B")) Then
         MsgBox "Row " & R & " found in lookup table "
      End If
      R = R + 1
   Loop
   
End Sub

Private Function PairIsFound(LookupTable As Range, Element1 As Variant, Element2 As Variant) As Boolean

   Dim R As Long
   
   PairIsFound = False
   
   Do While LookupTable.Cells(R, 1) <> ""
   
      If Element1 = LookupTable.Cells(R, 1) And Element2 = LookupTable.Cells(R, 2) Then
         PairIsFound = True
         Exit Do
      End If
      
      R = R + 1
      
   Loop
   
End Function

I suspect this can also be done with formulas without adding extra columns, not 100% sure. What is it you want to do when you find a match?