指定列からデータを検索し、指定範囲のデータをクリアするマクロ

簡単なものですが、こんな感じになります。

Sub ClearAtoI()

    Dim r As Long
    
    For r = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
        If InStr(Cells(r, 12).Value, "XYZ") > 0 Then
            Range(Cells(r, 1), Cells(r, 9)).Clear
        End If
    Next r

End Sub

L列に文字が書かれたら自動的にマクロを作動させるようにすることもできます。
その場合は次のようなマクロになります。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rng As Range
    Dim cl As Range

    Set rng = Application.Intersect(Target, Columns("L"))
    If Not rng Is Nothing Then
        For Each cl In rng
            If InStr(cl.Value, "XYZ") > 0 Then
                Range(Cells(cl.Row, 1), Cells(cl.Row, 9)).Clear
            End If
        Next cl
    End If
    Set rng = Nothing

End Sub