macro to shift data to adjacent columns based on dates

I have attached sample data, the "initial" sheet is what the data looks like currently and the "final" sheet is what I'm hoping to make it look like at the end. What I basically want to do is run through the data and shift all data in the year 2014 to the adjacent cells of the year 2013 (see "final" sheet for visual) as it relates to column A. I then want to take the totals of column D and E and average them out (see "final" sheet).

Any help on this would be greatly appreciated.

Thank you.

sample data.xlsx

Wow, that was incredibly better than what I had been attempting to do, it works very well!

Not to ask for too much, but would you also have an elegant solution to the second half of the problem as well (totals, average)?

Thank you sooo much, this was way more help than I was expecting!

Thank you, this is EXACTLY what I needed!!