Macro to filter data by category and delete rows where category sums up to zero

i have various categories in Col P

I would like a macro to filter Col I by category and where the values in Col h sum to zero for a particular category to delete all the rows for that category


It would be appreciated if someone would provide me with the code to do this

Thank for the help Mumps1

The Macro is not deleting the rows pertaining to the categories that sums to zero

I have attached the original workbook with a sheet called "result" to show what the result should be.

i have also attached a workbook showing what the result looks like after running the macro

Kindly test and amend your code

Many Thanks Mumps1

You revised code works perfectly