重置Excel表中的数据行（除第一个表外），而不破坏表

Question

我从JackMcKoy帖子中找到了此VBA代码，它非常适合于重置excel表（Excel16），但是由于当我按TAB添加行时它不再添加新行，因此打破了该表。请指教。预先感谢。

Sub Clear_Table()
    Range("Table1").Select
    Application.DisplayAlerts = False
    Selection.Delete
    Application.DisplayAlerts = True
    Range("A1:G1").Select
    Selection.ClearContents
End Sub