从表单按钮删除行后重新格式化表格

Question

我有一张表单的表格，如果选择了新行，则将填入空白；如果选择了已填充的行，则将使用.Tag属性自动填充。条目（如果是新条目）将自动附加到工作表的下一行。

如果有人希望删除条目，我尝试添加一个删除行按钮（“ DelButt”）。理想情况下，删除该行后，将数据重新格式化为表格以保留颜色模式，然后还原为一定范围。

删除所选行：

Private Sub DelButt_Click()

With Me

    Cells(.Tag, 1).EntireRow.Delete

End With

Unload NewItemForm

由于单击单元格时会自动生成表单，因此我禁用了事件，以便可以格式化范围。

Application.EnableEvents = False

l = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Set Rng = ActiveSheet.Range("A1:Z" & l)
Set Table = ActiveSheet.ListObjects.Add(xlSrcRange, Rng, xlYes)

Table.TableStyle = "TableStyleMedium8"
ActiveSheet.ListObjects("Table1").Unlist

Application.EnableEvents = True

End Sub

该行被删除，但是范围格式不正确。我的代码有什么不正确的地方吗？还是我打算以不正确的方式解决这个问题？