=($A$2:$A$10=E2)*($B$2:$B$10=F2)*($C$2:$C$10=G2)*($D$2:$D$10=H2)

Option Explicit

' все три файла которые указаны в коде должны быть открытыми
' совпашие строки между "Oh_Nick_Book1.xlsx" и "Oh_Nick_Book2.xlsx" заносяться в книгу "Oh_Nick_Main.xlsm" из книги "Oh_Nick_Book1.xlsx"
Sub Oh_Nick_Main()
    Dim i           As Long
    Application.ScreenUpdating = False
    Dim sh          As Worksheet: Set sh = Workbooks("Oh_Nick_Book1.xlsx").Worksheets(1)
    Application.ScreenUpdating = False

    With Workbooks("Oh_Nick_Book2.xlsx").Worksheets(1)
        Dim iRow    As Long: iRow = .Cells(.Rows.Count, "E").End(xlUp).Row

        For i = 2 To iRow

            If .Cells(i, "E") <> "" Then

                If sh.Cells(i, "A").Value = .Cells(i, "E").Value _
                        And sh.Cells(i, "B").Value = .Cells(i, "F").Value _
                        And sh.Cells(i, "C").Value = .Cells(i, "G").Value _
                        And sh.Cells(i, "D").Value = .Cells(i, "H").Value Then
                    Dim ws As Worksheet: Set ws = Workbooks("Oh_Nick_Main.xlsm").Worksheets(1)
                    Dim lastRow As Long: lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

                    ws.Cells(lastRow, 1).Value = .Cells(i, 5).Value
                    ws.Cells(lastRow, 2).Value = .Cells(i, 6).Value
                    ws.Cells(lastRow, 3).Value = .Cells(i, 7).Value
                    ws.Cells(lastRow, 4).Value = .Cells(i, 8).Value

                    ws.Cells(lastRow, 3).NumberFormat = "h:mm"
                    ws.Cells(lastRow, 4).NumberFormat = "h:mm"
                End If

            End If

            iRow = iRow + 1
        Next

    End With

    Application.ScreenUpdating = True
End Sub