Можно ли VBA прописать по формату ячейка(цвет текста, жирность) последующие действия?

Формулировка задачи:

Привет, народ подскажите плс. Можно ли VBA прописать по формату ячейка(цвет текста, жирность) последующие действия? Например, как только в столбце “А” макрос натыкается на ячейку с заданным шрифтом и цветом, то он возвращается на ячейку назад и вставляет пустую разделительную строку.

Решение задачи: «Можно ли VBA прописать по формату ячейка(цвет текста, жирность) последующие действия?»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> InsertRows()
    <font color="blue">Dim</font> rng <font color="blue">As</font> Range
    <font color="blue">Dim</font> lngI <font color="blue">As</font> <font color="blue">Long</font>
    <font color="blue">Dim</font> lngRows <font color="blue">As</font> <font color="blue">Long</font>
    
    <font color="blue">Set</font> rng = Range(<font color="teal">"A:A"</font>)
    
    lngRows = rng.Rows.Count
    
    rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    <font color="blue">For</font> lngI = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> lngRows
        <font color="blue">If</font> rng.Cells(lngI, <font color="darkblue"><b>1</b></font>).Font.Bold <font color="blue">And</font> _
          rng.Cells(lngI, <font color="darkblue"><b>1</b></font>).Font.Color = RGB(<font color="darkblue"><b>255</b></font>, <font color="darkblue"><b>0</b></font>, <font color="darkblue"><b>0</b></font>) <font color="blue">Then</font>
            rng.Cells(lngI, <font color="darkblue"><b>1</b></font>).EntireRow.Insert
            lngI = lngI + <font color="darkblue"><b>1</b></font>
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font> lngI
<font color="blue">End</font> <font color="blue">Sub</font>
                        