Macro to find field based on a cell value

I have 2 sheets in same excel.( i have also attached sample file for data) .
Please help its urgent.

Sheet 1:
A B C D E F
HR 2015 Q1 Database Planned 176
CRM 2014 Q4 Major Product Planned 125
HCM 2015 Q1 Database Planned 113

Sheet 2:
A B C D E
Doc 2015 Y 176 -----

simple requirement is to search column A in sheet 1 based on Column D in sheet 2. and write it in Column E.

The answer should be
A B C D E
Doc 2015 Y 176 HR

I need to perform this search on varouis fields in sheet A. this is a small snapshot of sheet. Can someone help me in macro. Vlookup wont work in this condition as there are severral searches I need to do, I cant change the columns.

AttachmentSize
Test.xlsx30.36 KB