Как удалить строки, которые дают в сумме 0?

[nilem]

На последнем примере из 4109 строк удалил 219. Вручную обнаружил только Кузнецову З.А., которую можно было бы удалить (-20,59/+20,59).
Наверное, еще какой-нибудь цикл надо воткнуть, или уж Бог с ней, с этой Кузнецовой
Главное, что лишнего не удаляет - общие суммы до и после совпадают. Проверьте сначала на маленьком примере. Файл прежний, см. Лист2. Вот код:

Sub DemonSum()    'удалить строки в массиве с суммой = 0
Dim i As Long, j As Long, k As Long, u As Long, v As Long
Dim x, z(), s As Currency: Application.ScreenUpdating = False

With Range("C9:N" & Cells(Rows.Count, 4).End(xlUp).Row + 1)
    x = .Value: .ClearContents
End With
ReDim z(1 To UBound(x), 1 To 12)

For i = 1 To UBound(x) - 1
    s = x(i, 12): j = i
    Do While x(i, 2) = x(i + 1, 2)
        i = i + 1: s = s + x(i, 12)
        If s = 0 Then Exit Do
    Loop
    If s <> 0 Then
        For k = j To i
            u = u + 1: z(u, 1) = u
            For v = 2 To 12: z(u, v) = x(k, v): Next v
        Next k
    End If
Next i

[c9:n9].Resize(u).Value = z: Application.ScreenUpdating = True
MsgBox "Удалено строк: " & UBound(x) - u - 1 & " из: " & UBound(x) - 1
End Sub

Кстати, можно еще сиреневую стрелку задействовать в кач-ве доп. обработки. Только там надо диапазоны поправить.

[nilem]

Да, сиреневый макрос еще 40 строк удалил. В файле на Лист2 делай Шаг1, Шаг2.
Если нужно еще оптимизировать, то, видимо, без "рюкзака" не обойтись

[gluk_fm]

Я не знаю насколько это актуально - в приложении полностью написан под твою просьбу код. Правда долго работает, но если захочешь уже сам сократишь