VBA删除表格最后一行

Sub 删除最后一行()
If MsgBox("要为所有表格添加列吗？", vbYesNo + vbQuestion) = vbYes Then
For i =  To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Rows.Last.Delete
Next
MsgBox ("完成")
Else
MsgBox ("任务取消")
End If
End Sub