Delete Rows with 0 Values

[Ed_B]

Thank you in advance for your help.

I have a list of items some of which have 0 values. They are separated in groups and I would like to output the list keeping the groups, but deleting the rows with 0 values and adding a grand total:

INPUT Item Unit Price Quantity Total Price Fruits Peaches 1 1 1 Mangos 2 0 0 Berries 3 2 6 Vegetables Carrots 2 0 0 Peas 4 2 8 Potato 3 2 6 OUTPUT Fruits Peaches 1 1 1 Berries 3 2 6 Vegetables Peas 4 2 8 Potato 3 2 6 Total Total Price 21 <tbody> </tbody>

<tbody>
</tbody>

Thanks again

Ed

 

[Johnny Thunder]

Assuming your Total row is in column D

Sub DeleteRow()


Dim RowToTest As Long


For RowToTest = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1


With Cells(RowToTest, 4)
    If .Value <> 0 Then 
    Rows(RowToTest).EntireRow.Delete
End With


Next RowToTest


End Sub