GUSTO

Selection.Group Start:=True, End:=True, Periods:=Array(False, False, False, _
        True, True, False, False)
    ActiveSheet.PivotTables("Pivot").PivotFields("Months").ShowDetail = False
    With ActiveSheet.PivotTables("Pivot").PivotFields("Months")
        .PivotItems("<3/1/2017").Visible = False
        .PivotItems("Jan").Visible = False
        .PivotItems("Feb").Visible = False
        .PivotItems("Apr").Visible = False
        .PivotItems("May").Visible = False
        .PivotItems("Jun").Visible = False
        .PivotItems("Jul").Visible = False
        .PivotItems("Aug").Visible = False
        .PivotItems("Sep").Visible = False
        .PivotItems("Oct").Visible = False
        .PivotItems("Nov").Visible = False
        .PivotItems("Dec").Visible = False
        .PivotItems(">3/17/2017").Visible = False
    End With
    Range("A7").Select
    ActiveSheet.PivotTables("Pivot").PivotFields("Months").PivotItems("Mar"). _
        ShowDetail = True
End Sub