VBA Macro with IF THEN loop to insert rows with data

A screen shot of test data is linked to below. I want write a VBA If then loop that does the following:

IF the Date (Column A) and Business (Column C) are the same AND
IF Category (Column E) is "Extra", "Extra 2", OR "Extra 3"
THEN the Amount (Column F) is summed AND
A row is inserted that copies all columns except for Category (E) and Amount (F) and the Category (E) "Extras_Total" and summed Amount (F) are created (highlighted in yellow).

If it's possible to then also delete the rows with "Extra", "Extra 2", and "Extra 3" (highlighted in blue), that would also be a big help.

Any pointers would be most welcome!

Thanks