【VBA】快速填充单元格

在Excle中，需要填充单元格，直接下拉，然后即可填充，但是使用VBA代码又该如何实现这个呢？

代码区域

Public Sub 快速填充()
    Dim myRange As range
    Cells.Clear '清除所有表格数据
    Set myRange = range("A1:A12")
    With myRange.Cells(1)
        .Value = "1月" '设定初始日期
        .AutoFill Destination:=myRange, Type:=xlFillDefault
    End With
    Set myRange = Nothing
End Sub

以下是附件执行过程以及效果展示：

程序运行前

程序运行后

点击下载附件