Sub test()
    Dim sh1 As Worksheet, sh2 As Worksheet, x As Range, dic As Object
    Dim i&, lr&, iKey$
    Set sh1 = ThisWorkbook.Sheets(1)
    Set sh2 = ThisWorkbook.Sheets(2)
    Set dic = CreateObject("scripting.dictionary")
    With sh1
        For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
            iKey = Trim(.Cells(i, "b") & "@" & .Cells(i, "c") & "@" & .Cells(i, "d"))
            dic(iKey) = i
        Next i
    End With
    With sh2
        For i = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
            iKey = Trim(.Cells(i, "b") & "@" & .Cells(i, "c") & "@" & .Cells(i, "d"))
            If dic.exists(iKey) Then
                sh1.Cells(dic(iKey), "e") = .Cells(i, "e")
            Else
                lr = sh1.Cells(Rows.Count, 2).End(xlUp).Row + 1
                sh1.Cells(lr, "b") = .Cells(i, "b")
                sh1.Cells(lr, "c") = .Cells(i, "c")
                sh1.Cells(lr, "d") = .Cells(i, "d")
                sh1.Cells(lr, "e") = .Cells(i, "e")
            End If
        Next i
    End With
End Sub