Sub test()
Dim Cel As Range, X As Long
For Each Cel In Range([H3], Cells(Rows.Count, "H").End(xlUp))
For X = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
If Range("B" & X) = Cel Then
Cel.Offset(0, 1) = Cells(X, "A")
If Range("E" & X) = "" Then
Cel.Offset(0, 2) = CLng(Range("C" & X)) + CDbl(Range("D" & X))
Cel.Offset(0, 2).NumberFormatLocal = "jj/mm/aaaa - hh:mm"
End If
Exit For
End If
Next X
Next Cel
End Sub