VBA Copy Paste Based on Cell Contents and Colour

I'm looking for some help to sort out a macro that will loop through the first column of a table and find any instances where the cell equals "Civils" and where the cell is not highlighted (i.e. colour is 0, 0, 0). I want to copy the cell next to it and paste the value only into the next blank cell in column C on Sheet 2. From the small sample attached, I would expect the contents of B9 and B13 (753 and 787) to be pasted into sheet 2.

Any help greatly appreciated.

If you want to paste into next empty row in column A
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
OR
If you want to paste to range("A1")
instead of Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues

Please Login or Register  to view this content.