Sub test()
Dim i%, k%
For i = 4 To 7
For k = 4 To Range("A65536").End(xlUp).Row
If Range("G" & i).Value = Range("A" & k).Value And Range("H" & i).Value = Range("B" & k).Value _
And (Range("I" & i).Value < Range("D" & k).Value And Range("I" & i).Value > Range("C" & k).Value) Then
Range("J" & i).Value = Range("E" & k).Value
End If
Next k
Next i
End Sub