如果我的范围不等于今天的date，如何删除行？

我是第一次尝试macros观的初学者。 如果列K中的date不等于今天的date，我想要删除整个工作表的行。 除了某些语法错误，我不能补救的代码之外，我相信数据转储的列K没有被格式化为捕获我试图运行的代码的date。

这是我到目前为止的代码。 请使用在线资源，试图自学的人温柔:)

Sub GetTodaysPopulation() Dim MySheet As Worksheet, MyRange As Range Dim LastRow As Long, LastCol As Long Application.DisplayAlerts = False Set MySheet = ThisWorkbook.Worksheets("TradeExData") ThisWorkbook.Worksheets("TradeExData").Activate With MySheet LastRow = .Range("A" & .Rows.Count).End(xlUp).Row LastCol = .Range("A" & .Columns.Count).End(xlToLeft).Column Set MyRange = .Range(.Cells(1, 1), .Cells(LastRow, LastCol)) End With With MyRange .AutoFilter([Field:=11], [Criteria1: <> Date]) .SpecialCells(xlCellTypeVisible).Offset(1, 0).Resize(.Rows.Count).Rows.Delete End With With MySheet .AutoFilterMode = False If .FilterMode = True Then .ShowAllData End If End With End Sub