表中右击快捷键上移一行和下移一行

老师，上面这个代码我不会写。请老师指点一下

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index > 0 Then
    CurrentTable.Current.move(CurrentTable.Current.Index-1)
End If

-------------

If CurrentTable.Current IsNot Nothing AndAlso CurrentTable.current.Index < CurrentTable.Rows.count-1 Then
    CurrentTable.Current.move(CurrentTable.Current.Index+1)
End If

此主题相关图片如下：1.png

老师，上图中，我本来想删除蓝色行了，但是右击删除，就把第一行输入的内容清空了，这是为啥：

With Tables("统计1")
        .Current.Delete
End With

代码是这样的

改成

With CurrentTable
        .Current.Delete
End With