自动填充日期为“今天” -1的列

Question

我对vba来说还很陌生，并且一直在使用很多带范围和单元格方法的if语句来自动化我的很多东西。 这次，我必须用“今天”的日期减一来自动化我的空白列。例如，由于今天是19/10/2019，所以我希望最新的空白列标题为“ 18/10/2019” 下面是我尝试的代码。这很简单，我不认为它将在每月更改一次后生效，因为我没有使用“今天”日期功能。我很确定自动填充部分的语法是错误的，我不知道如何在列中指定它们。 请看一下图片以获得更好的理解 TIA！

下面是我尝试的代码。这很简单，我不认为它将在每月更改一次后生效，因为我没有使用“今天”日期功能。我很确定自动填充部分的语法是错误的，我不知道如何在列中指定它们。感谢任何帮助，谢谢！

Sub aha()
    Worksheets(1).Activate
    Dim x As Integer
    Dim blankcell As Range
    colummn = Cells(1, Columns.Count).End(xlToLeft).Column
    For x = 1 To colummn
        If Cells(1, x).Value = "" Then
            Set blankcell = Cells(1, x)
        ElseIf Cells(1, x).Value = "" Then
            Cells(1, 32).Select
            Selection.AutoFill Destination:=Range("AC1:AF1", blankcell), _
                                                  Type:=xlFillDefault
        End If
    Next x
End Sub