Hide Columns automatically based on date

Dear all,

I have a problem where I want to hide columns automatically when the date of respective columns have expired. If today is 27-Feb-2015 then tomorrow when I reopen my excel that is on 28-Feb-2015 then the columns A:F should hide given A:F were assigned to specific date. Report.xls

Will it be possible that basic formatting of A:F should also replicate every time when previous columns go into hiding?

Thank you.

Can someone help me with better syntax,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim x As Integer
x = DateTime.Now - Range("D1").Value


If x >= 1 Then
Columns("A:F").EntireColumn.Hidden = True
Else
Columns("A:F").EntireColumn.Hidden = False
End If

Dim y As Integer
y = Now - Range("J1").Value

If y >= 1 Then
Columns("G:L").EntireColumn.Hidden = True
Else
Columns("G:L").EntireColumn.Hidden = False
End If


Dim Z As Integer
Z = Now - Range("P1").Value

If Z >= 1 Then
Columns("M:R").EntireColumn.Hidden = True
Else
Columns("M:R").EntireColumn.Hidden = False
End If

Dim x1 As Integer
x1 = Now - Range("V1").Value

If x1 >= 1 Then
Columns("S:X").EntireColumn.Hidden = True
Else
Columns("S:X").EntireColumn.Hidden = False
End If

Dim y1 As Integer
y1 = Now - Range("AB1").Value

If y1 >= 1 Then
Columns("Y:AD").EntireColumn.Hidden = True
Else
Columns("Y:AD").EntireColumn.Hidden = False
End If


End Sub