Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "A" Then
Rows(Target.Row).Interior.ColorIndex = 6
Cells(Target.Row, 11) = "formula here"
Else
If Target.Value = "B" Then
Rows(Target.Row).Interior.ColorIndex = 41
Cells(Target.Row, 13) = "formula here"
Else
If Target.Value = "C" Then
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
Cells(Target.Row, 4) = "D formula here"
Cells(Target.Row, 8) = "H formula here"
Cells(Target.Row, 13) = "M formula here"
Cells(Target.Row, 17) = "Q formula here"
Else
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
End If
End If
End If
End If
End Sub