Find data from a table using 4 inputs

Please try

Private Sub CommandButton1_Click()
Dim rs, l&, d$
l = Sheets("inputs").Cells(Rows.Count, 7).End(xlUp).Row
d = "=Inputs!A2:F" & l
rs = Evaluate("INDEX(Inputs!G2:G" & l & ",MATCH(4,MMULT((B2" & d & ")+(C2" & d & ")+(D2" & d & ")+(E2" & d & "),{1;1;1;1;1;1}),))")
    If IsError(rs) Then
        MsgBox "This selection of numbers has not been entered yet"
    Else
        [g2] = rs
    End If
End Sub