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