如何为所有Excel工作表同时删除多个行范围？

Question

我有一个大约50张的excel文件，为此我需要删除以下行范围：57-62、113-118、169-174等我需要这样做，因为有不连续的行。我的意思是我有来自行的数据（1-56），然后有单词污染了我的数据（113-118），然后清除了数据，依此类推。因此，我想同时删除所有Excel工作表的多个行范围。

我正在尝试使用此代码：

Sub WorksheetLoop1()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("57:62").EntireRow.Delete
    Next ws

End Sub
Sub WorksheetLoop2()

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("113:118").EntireRow.Delete
    Next ws

End Sub

但是当我运行第一个代码（Sub WorksheeyLoop1（）），然后运行下一个代码时，这是一个错误。的范围显然从113-118变为107-112。我不要我想为每个excel工作表同时运行所有代码（同时消除多个行范围），所以我不必更改每个代码的行范围。。您能否建议这样做的VBA代码？

提前感谢！