Private Sub OptionButton1_Click()
OptionButton2 = Not OptionButton1
ActiveSheet.Range("$B$6:$j25000").AutoFilter Field:=2, Operator:= _
xlFilterValues, Criteria2:=Array(1, "6/30/2015")
End Sub
Private Sub OptionButton2_Click()
OptionButton1 = Not OptionButton2
ActiveSheet.Range("$B$6:$j$25000").AutoFilter Field:=2
End Sub
Private Sub Worksheet_Activate()
OptionButton1.Value = False
OptionButton2.Value = True
End Sub