Locating data based on cell color & pasting to new sheet

I currently have some VBA code that compares two worksheets and color codes the cells in both worksheets based on what is found between the two (green if match, orange if no match).

What I need to do is search through sheet 1 for all green cells, copy the contents of that cell and a cell three cells to the left, then place the contents of both cells in columns A and B on sheet 3 with a column header of "Keeps"- and loop through the worksheet until it hits a blank cell.

This then needs to be repeated for all orange cells, placing the contents in columns C and D of the sheet 3 with a column header of "Takes".

For sheet 2, I need it to locate each of the unhighlighted cells (not green or orange), check to see if it is a duplicate in sheet 2, discard if it is or place the results in columns E and F of sheet 3 if its not a duplicate with a column header of "Puts".

This has to be done in VBA with no interaction by the user. I'll get around to figuring out how to let the user select two worksheets in two different workbooks later.

And this is for Excel 2K.

Any assistance greatly appreciated.