Insert 2 rows, copy the formula.VBA HELP Pls

Hello,
I have a huge file to work on. Please help me with a VBA that does the following for the entire sheet (until the last row)

1) Whenever you see "Orange" in the "Fruit" column, Insert 2 rows after "Orange"
2) Copy the formula from the "Orange" row to the inserted rows in 1
3) First inserted row: Change the title in the "Fruit" column to Orange1 instead of Orange and Type O to O1
3) Second inserted row: Change the title in the "Fruit" column to Orange2 instead of Orange and Type O to O2

Sample data:
Fruit Type Total
Orange O 1
Apple A 2
Apple A 1
Orange O 10
Cherry C 2

After I run the macro I should get

Fruit Type Total
Orange O 1
Orange1 O1 1
Orange2 O2 1
Apple A 2
Apple A 1
Orange O 10
Orange1 O1 1
Orange2 O2 1
Cherry C 2

THANK YOU SO MUCH