Delete row if total is equal to 0.00%

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