Automatically update graph range based on date in column

I want a macro that will check each cell from A2 downwords and once the date = today or higher i.e. the latest to extend the maximum range of a chart.....

Sub autodate()
Range("A2").Select
If Activecell.value= <[today]
Move to next cell

Else
    Sheets("Chart2").Select
    ActiveChart.ChartArea.Select
    ActiveChart.Axes(xlCategory).Select
    ActiveChart.Axes(xlCategory).MaximumScale = Sheet1!.ActiveCell.

End if
End Sub

I know theres alot wrong in the above, but hopefully it gives you the general jist