Cut and paste cells based on specific text

Hi all, and apologies if this solution is elsewhere, I have looked but unable to find the right/best answer. This is probably simple but the answer is eluding me.

I have a report on which I have performed some subtotals. What is needed is to have the text "Total 301", etc., moved to be next to the total. The column in which "Total 301" currently resides will be deleted after the text has been moved.

Also, some accounts have multiple rows. I need to remove duplicate account code and name labels.

I've attached a small sample file showing before/after. This is a 2007 file, but the macro will actually be run in 2003. Long story why this is so, I can attach a sample in 2003 tonight if needed.

Thank you.