Matching multiple cell values on a table

I couldn't figure out a formula to do wat you want, but this code worked for me.

Sub test()
Dim LastRow As Long, endRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Dim rng As Range, rng2 As Range
Set rng = Range("G2:J6")

For i = 2 To LastRow
    With rng
        endRow = rng.Rows.Count
        For r = 1 To endRow
            Set rng2 = .Rows(r).Find(what:=Cells(i, 1), Lookat:=xlWhole, MatchCase:=False)
            If rng2 Is Nothing Then
                GoTo NewRow
            Else: End If
            Set rng2 = .Rows(r).Find(what:=Cells(i, 2), Lookat:=xlWhole, MatchCase:=False)
            If rng2 Is Nothing Then
                GoTo NewRow
            Else: End If
            Set rng2 = .Rows(r).Find(what:=Cells(i, 3), Lookat:=xlWhole, MatchCase:=False)
            If rng2 Is Nothing Then
                GoTo NewRow
            Else: End If
            Cells(i, 5) = 1
NewRow:
        Next r
    End With
    
    If Not Cells(i, 5) = 1 Then
        Cells(i, 5) = 0
    End If
Next i
End Sub