excel - テーブルに関連付けられた値に基づいてワークシートの行を削除する

Question

列 B から始まる 2 つのテーブルを含むワークシートがあります。列 AI には、空白行の削除ボタンに関連付けられた COUNTA 式があります。私のコードはテーブルの行を削除するのにうまく機能しますが、ワークシートの行全体を削除して、行が追加または削除されるたびに連続的にシフトダウンするのではなく、列 A の数式も削除する必要があります。

問題は、シートに 2 つのテーブルがあるため、削除行アクションで Local_1 テーブルのみを参照し、そのテーブルの最後に達したときにループを停止する必要があることです。

テーブルの行だけでなく、行全体を削除する方法について何か提案はありますか?

Dim i As Long
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=pswStr
Rows.EntireRow.Hidden = False
With ActiveSheet.ListObjects("Local_1")
For i = .ListRows.Count To 1 Step -1
        If .ListRows(i).Range.Cells(0) <= 0 Then
            .ListRows(i).Delete                
        End If
    Next i
End With