Excel VBA, чтобы найти один текст из ячейки в столбце, если true, тогда закрасить ячейку результата в той же строке

Question

Я пытаюсь проверить, есть ли какие-либо элементы из списка данных, если они соответствуют типу условия, а затем вернут результат в той же строке, заполнив цвет ячейки.Я использовал простой макрос, как показано ниже: - (заполните, если в ячейке данных есть какие-либо элементы (текст), иначе ничего не делайте)
(диапазон данных A1: A802, 75 столбцов из ячейки результата)

Sub STechnoFill()

    Dim r As Range, rr As Range
    Set rr = ActiveCell.Offset(1, 0).Range("A1:A802")
    For Each r In rr
        If Len(r.Offset(0, 75).Value) > 0 Then
            'r.Interior.ColorIndex = 24
            r.Interior.Color = RGB(224, 210, 245)
        End If
    Next r

End Sub

В настоящее время возникают проблемы, так как данные имеют больше элементов (7 типов, например, «A», «B», «C», «D», «E», «F», «G»).и данные могут быть пустыми или более одного типа элемента.(например, «AB», «BCD» и т. д.)
(Заполнение условия: если найдено «A», то заполните цвет светло-желтым. RGB (255, 255, 204), если найдено «B»: RGB (204,255,255),«C»: RGB (255,253,204), «D»: RGB (255,204,153), «E»: RGB (204,255,204), «F»: RGB (153,51,102), «G»: RGB (0,255,255) (если больше, чемодин элемент, я использую другой макрос, чтобы ограничить его)

В VBA я пробовал .find, но пока не работал, используя свое ноу-хау новичка. Можете ли вы найти решение этой проблемы?