Конечно можно. Код примерно такой:

Dim sFont as string
dim bCol as integer
Dim смещение as integer
dim заданый_цвет as integer
dim заданый_шрифт as string


do while (Range("A1").Offset(смещение).value <> "") 'до пустого предложения

'берем цвет символа номер iStart в активной ячейке:
bCol = Range("A1").Offset(смещение).Characters.Font.ColorIndex
sFont = Range("A1").Offset(смещение).Font.Name

'если заданый цвет и шрифт, то действуем...
if (bCol = заданый_цвет) and (sFont = заданый_шрифт) _
then
смещение = смещение - 1
Range("A1").Offset(смещение).Insert Shift:=xlDown
end if

смещение = смещение+1
loop