excel - Excel VBA - 删除表格中选定行时与表格合并的总数

Question

我有一个问题，删除选定的行，删除选定的行，但“总行”与表格合并，我无法在 Excel 表中执行任何操作，必须重置我的进度。

我想知道是否有人可以在删除表格时查看我的代码并让我知道他们是否发现任何错误。在无法对电子表格执行任何操作之前，我还附上了收到的错误消息。

Sub DeleteRow()
Dim rng As Range
On Error Resume Next
With Selection.Cells(1)
    Set rng = Intersect(.EntireRow, ActiveCell.ListObject.DataBodyRange)
    On Error GoTo 0
    If rng Is Nothing Then
        MsgBox "Please select a valid table cell.", vbCritical
    Else
        rng.Delete xlShiftUp
    End If
End With
End Sub