Строки

[DonDonDon]

Есть список проводок. В общем их 65 штук и порядочный номер от 1 до 65
Мне не нужны в списке строки сума которых ровна 0. Хочу что бы когда там 0, она пропадала, а на ее место становилась бы следующая, уже с сумой. И что бы в конченом итоге все строки с нулями бы пропали, а остались толко с числами и их нумирация была безпрерывная.
Спасибо заранее

[SAS888]

Посмотрите пример во вложении. Если, конечно, я правильно все понял. Откройте файл и запустите макрос "Main". Удалось обойтись вообще без циклов:

Sub Main()
    Application.ScreenUpdating = False
    With Range("E6:E" & Cells(Rows.Count, 5).End(xlUp).Row)
        .Replace 0, "", xlWhole
        On Error Resume Next
        .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        .SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete
        .Offset(, -3).Replace 2, "", xlWhole
        .Offset(, -3).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        On Error GoTo 0
    End With
    [A6] = 1: [A6].AutoFill Range("A6:A" & Cells(Rows.Count, 2).End(xlUp).Row), xlFillSeries
End Sub