Macro to Copy from 2 Columns, Paste Value in the next 2 Columns, Then clear 1st Columns

I have worksheets that compare month by month totals between years. Each Year I need to move the previous month over two columns and then clear the first two columns for input of the current year, doing this for each month.

After the values from Column B has been pasted as Value in Column D (hopefully not pasting over formulas in Column D) I would like Column B to remove the numbers, leaving the formulas, dates and text untouched.

This goes on for 3 months, and then there are Quarter To Date columns which contain formulas. Those need to remain untouched also.

I have attached an example sheet.

1 Rev/Exp Miles Rev/Exp Miles
2 01/31/14 01/31/14 01/31/13 01/31/13
3 22 23 22 2,004,423
4
5 20000.00 (formula)