Using VBA to copy cell font color

I have a process which generates cell values in a fixed range. Based on the cell value the font color of that same cell sometimes changes.

Then I have another "depository" range where I place the list of the values of the fixed range.

For example,

Please Login or Register  to view this content.

In the code above Cells(1,1) is the fixed range, its value changes based on another process, and as mentioned sometimes the cell font takes on another color.

Now each time I run the process the Cells(1,1).Value gets put in the "next" empty row, hence the "a" variable.

The problem is that Cells(a,10).Value only takes on the value of Cells(1,1), how do I make Cells(a,10) also take on the font color of Cells(1,1)?