Macro for last 12 rolling months

[hildaraquel]

How do I write a macro to show the rows for the last 12 rolling months and hide others ? Column A is listing dates formatted "Oct 2015, Sep 2015, etc."
I appreciate the help.

 

[footoo]

Your post is a bit short on information.
Assuming:
- the dates start in row 2 in descending order,
- each date occupies only one row, and
- there are no totals to be shown at the bottom of the data
then :-

Sub HideRows()
Dim rng As Range
Cells.EntireRow.Hidden = False
Set rng = Intersect(Range(Cells(14, 1), Cells(Rows.Count, Columns.Count)), _
     ActiveSheet.UsedRange)
If Not rng Is Nothing Then rng.EntireRow.Hidden = True
End Sub

 

[hildaraquel]

Thanks for the reply. Sorry about the lack of info.
The data I want to hide starts from line 6 -29. There is a total I want to show in line 30 (which is merged with line 31, not sure if this is important)
Ops, is not in descending order, is ascending.