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