Search for fontcolour, copy row to another existing workbook, to sheet with cellvalue-name

Hello,

I'm kind of new to VBA and I have a question that I can't seem to google my way out of... (Excel 2007)

I have a kind of transporting material that I have to keep track of (exchanging them with either transporters or clients).
For this, I weekly manually check our orderdata against the freight documents, which specify if the material is exchanged or if someone has a debt to us.
At the moment I'm using a red font colour (-16776961) if material has not been exchanged and a green colour if it has.
See attached document.

Can someone (help me to) create a macro that:
- finds each row with the red font colour (-16776961) in a workbook named "exchanged directly"
- copies each red row to an existing other workbook named "administration", and places it on an existing sheet with sheetname = transporter-name (same name as the name in column G) in the first empty row (sheet has headers)
- changes the font colour of the pasted row to the Automatic black colour
- deletes the copied row from the "exchanged directly" workbook

The greatest difficulty fo me is the second part of the above question. I'm hoping someone can help me out with this.
Thanks!!