主题：删除的不是当前行

老师:

以下的代码是我在打开窗口,点"删除"按钮时,为什么删除的不是光标所在的行,而是表的最后一行?

另外,要是在窗口同时选 几行删除,为什么只删除最后一行,其他要删除的几行依然存在?

请老师改一下以下的代码

With Tables("明细账表")
    For i As Integer = .BottomPosition To .TopPosition Step -1
        .Rows(i).Delete()
    Next
End With