Delete row if total is equal to 0.00%

This will delete the rows base on your requirements for the active sheet. If you want to apply the same macro for all the worksheet, just loop the each sheet.

Sub DeleteRow()
Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
Dim LR As Long, i As Long

With ws
LR = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = LR To 5 Step -1
        If .Cells(i, "BI").Value = 0 Then .Rows(i).Delete
    Next i
End With
End Sub

This should do it

Option Explicit
Sub abc()
Dim RangeToDelete As Range
Dim lastrow As Long, Ptr As Long
Dim ws As Worksheet

 For Each ws In Worksheets
    With ws
        lastrow = .Cells(Rows.Count, "A").End(xlUp).Row
        For Ptr = 4 To lastrow
            If .Cells(Ptr, "BI") = 0 Then
                If RangeToDelete Is Nothing Then
                    Set RangeToDelete = .Cells(Ptr, "BI")
                Else
                    Set RangeToDelete = Union(RangeToDelete, .Cells(Ptr, "BI"))
                End If
            End If
        Next Ptr
        
        If Not RangeToDelete Is Nothing Then
            RangeToDelete.EntireRow.Delete
        End If
        Set RangeToDelete = Nothing
    End With
 Next
 
 Set RangeToDelete = Nothing
 Set ws = Nothing
End Sub