Macro delete subtotal row ONLY

[witthoft12]

I need to identify any subtotals that are not zero - would like my macro to subtotal everything, then delete any rows where "total = 0" but not any of the rows that add up to the subtotal...is this possible?

Example:

Profit center Amount

0155 $10
0155 $2
0122 $5
0122 -$5

After Macro (identifies subtotal for 0155 is not zero...deletes other subtotal zero rows):

Profit center Amount

0155 $10
0155 $2
Subtotal 0155 $12
0122 $5
0122 -$5

[patel45]

attach please a sample file with data and desired result.
explain better how to identfy subtotals

[witthoft12]

example for forum.xlsI attached an example - I put the steps on each tab
Ideally I'm looking for a macro to:
1)Raw Data
2)Sort data, add in subtotals
3)Delete rows where subtotals = zero...highlight subtotals that do not equal zero, delete grand total row
4)Message stating ___ profit center does not equal zero

This is a template for a journal entry so we don't want to delete the rows that make up the zero subtotal - we need to have all profit centers sum to zero so we want to be able to idenify those profit centers that don't with a message