循环循环数年甚至数月

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**")