Dynamic default open page in excel

Dynamic default open page in excel

Below is my data in sheet "Sheet1"
ID Jan-13 Feb-13 Mar-13 Apr-13 Apr-13 May-13 Jun-13 Jul-13 Aug-13 Sep-13
A1 12 16 26 46 10 20 50 40 25 15 A2 24 18 24 26 20 20 20 20 25 25 A3 48 15
30 18 30 10 10 10 20 45 A4 16 51 20 10 40 50 20 30 30 15
I wish the data should be visible only for latest six months. for example,
if the current month for Sep-13,
ID Apr-13 May-13 Jun-13 Jul-13 Aug-13 Sep-13 A1 10 20 50 40 25 15 A2 20 20
20 20 25 25 A3 30 10 10 10 20 45 A4 40 50 20 30 30 15
and if the current month is Oct-13,
ID May-13 Jun-13 Jul-13 Aug-13 Sep-13 Oct-13 A1 20 50 40 25 15 10 A2 20 20
20 25 25 25 A3 10 10 10 20 45 35 A4 50 20 30 30 15 30
remaining columns should be hidden. If there is no data in Oct-13 the
current month view should be same as Sep-13. I have month row is filled
till 2014 and each row has formula based on another sheet "Sheet2". If I
add data for oct-13 in "Sheet2", the data will be visible for Oct-13
column in "Sheet1" otherwise it will be blank. It will be helpful if
someone help me how to make this dynamic using excel VBA.
Thanks in advance.