如果值超过x，则删除整行

Question

我无法弄清楚为什么我的代码没有按照我的计划完成，但我担心这是完全明显的。它在某种程度上起作用 - 但是尽管它们符合删除行命令的标准，但通常会留下行。

Dim LastRowA As Long
Dim i As Long
Dim cleanserows As Integer

LastRowA = Cells(Rows.Count, 11).End(xlUp).Row
cleanserows = TextBox1.Value

For i = 2 To LastRowA
If Date - Cells(i, 11).Value > cleanserows Then Rows(i).EntireRow.Delete
Next i

出于某种原因，我必须多次运行宏才能删除所有行 - 第一次离开两行，第二次离开1然后最终清除它们 - 我做了什么导致这个？

谢谢