Option Explicit
Sub test()
Dim Cell As Range
For Each Cell In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Cell.Interior.ColorIndex = 6 Then
Cell.Offset(0, 14).Value = "FAM"
ElseIf Cell.Interior.ColorIndex = 34 Then Cell.Offset(0, 14).Value = "SFA"
ElseIf Cell.Interior.ColorIndex = xlNone Then Cell.Offset(0, 14).Value = "PRO"
End If
Next Cell
End Sub