Macro to split out departments

Hi all,

I have been given help on the forum here to be able to make the decimal format calculation. The formula is in columns F and G. I want to split the rows out by the departments (A and B).

Department A allocated 80% of the time.
Department B allocated 20% of the time.

Adding the extra department’s rows.