Lookup Given Date in Cell A1 to date list in Cell E:E and find closest match

Hi i need code to be able to search the date in Cell A1 and look through the data in Cells E:E, then find the closest match then return the corresponding value in cell D:D.

See the attached, thanks!!

Example.xlsx