工作表长度变化时删除数据后的空行

Question

我有一个excel工作表，我已经对日期顺序进行了排序，这在电子表格的底部留下了很多空白，我想删除但是留下最后两个。 （最底部的那个格式为蓝色，高度为6，上面的那个是空白，也是6的高度。

数据存储在A5到J之间，长度不一 - 标签名称为Date Order

有没有人知道任何有助于解决此问题的VBA代码。

非常感谢任何帮助。

Answer 1

如果有人想要代码，这就行了，但它不会留下最后两行有没有人知道如何实现这个？

' This macro deletes all rows on the active worksheet
' that have no value in column A.
Dim iRow As Long
Dim LastRow As Long
LastRow = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
For iRow = LastRow To 1 Step -1
If Cells(iRow, 1) = "" Then Rows(iRow).Delete
Next iRow