とりあえず、こんなのでトライしてください。

Sub Macro1()
    With Range("B1")
    
        Select Case .Offset(, -1).Value 'A1セルの値を調べる
            Case "あ"
                .Value = "りんご"
                .Font.ColorIndex = xlAutomatic
            Case "い"
                .Value = "(傷)りんご"
                .Font.ColorIndex = xlAutomatic
                .Characters(Start:=1, Length:=3).Font.Color = RGB(255, 0, 0)
            Case Else
                .Value = Empty
        End Select
    End With
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

＞データーが入力（データー規則のリストを使い）されたら、
＞マクロが自動で実行ってできませんか？

当該シートの「シートモジュール」に以下のコードを貼付ける
※重要：「標準モジュール」ではない。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "M1" Then

        Application.EnableEvents = False

        With Range("A1") '隣のセル
            Select Case Target.Value
                Case "あ"
                    .Value = "りんご"
                    .Font.ColorIndex = xlAutomatic
                Case "い"
                    .Value = "(傷)りんご"
                    .Font.ColorIndex = xlAutomatic
                    .Characters(Start:=1, Length:=3).Font.Color = RGB(255, 0, 0)
                Case Else
                    .Value = Empty
            End Select
        End With

        Application.EnableEvents = True
    End If
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他