Цикл внутри цикла годами и месяцами

Question

Данные в одном столбце, и мне нужно, чтобы они были в матрице.

Итак, мои данные таковы:

Но мне нужно, чтобы это было так:

И код, который у меня пока есть:

Sub Macro1()    
    Sheets("Sheet4").Select
    Range("A2:C2").Select
    Selection.AutoFilter
    ''' For January

    ActiveSheet.Range("$A$2:$C$12056").AutoFilter Field:=1, Operator:= _
        xlFilterValues, Criteria2:=Array(1, "1/31/1984")
    'Copy
    Range("B2").Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy

    Sheets("Sheet2").Select
    Range("C1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select

    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

Это работает, но, конечно, мне нужен цикл, чтобы изменить годы, чтобы перейти с 1984 на 2018 год, и в этом цикле, чтобы перейти с 1 на 12.

ActiveSheet.Range("$A$2:$C$12056").AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(1, "**1/31/1984**")