Per the colors you show in your sample workbook.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

Dim icolor As Integer

    If Not Intersect(Target, Range("A1:A20000")) Is Nothing Then

        Select Case Target

            Case "Confirmed": icolor = 10

            Case "Declined": icolor = 3

            Case "Dispute": icolor = 6

            Case "Dropped Out": icolor = 1

            Case "Refund": icolor = 37

            Case "To Be Charged": icolor = 35

            Case Else: 'Whatever

        End Select

        Target.Interior.ColorIndex = icolor

    End If

End Sub