При исполнении цикла удаления строк умной таблицы по условию удаляется ровно половина строк, соответствующих условию (16 из 32 или 8 из 16 или 4 из . Потом выдает ошибку "1004"- Application defined or object defined error. Подозреваю, что при исполнении цикла и последовательном удалении строк с какого-то момента цикл вываливается за пределы таблицы и выдает ошибку. Подскажите, пожалуйста, что упускаю?
Код
Sub DelAllOrders()
Set Sh_Orders = ThisWorkbook.Worksheets("Заказы")
Set OrdersListObj = Sh_Orders.ListObjects("lst_Order")
Dim m As Integer
Dim n As Integer
n = frm_EditOrder.txb_OrderNumber.Value
For Each OrdersListRow In OrdersListObj.ListRows
If OrdersListRow.Range.Cells(m + 1, 1) = n Then
OrdersListRow.Range.Delete
End If
Next OrdersListRow
End Sub