Sub CopyColor()
Dim cl As Range
For Each cl In Range("$B$2:$B" & Cells(Rows.Count, "B").End(xlUp))
If cl.Interior.ColorIndex = 5 Then cl.Copy Cells(cl.Row, "A")
Next cl
End Sub
Sub GetCI()
MsgBox ActiveCell.Interior.ColorIndex
End Sub
Sub CopyColor()
Dim cl As Range
For Each cl In Range("$B$2:$B" & Cells(Rows.Count, "B").End(xlUp))
If cl.Interior.ColorIndex = 5 Then Cells(cl.Row, "A")= cl
Next cl
End Sub