Sub InsertRows()
    Dim rng As Range
    Dim lngI As Long
    Dim lngRows As Long
    
    Set rng = [A:A]
    
    lngRows = rng.Rows.Count
    
    rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    For lngI =  1  To lngRows
        If rng.Cells(lngI,  1 ).Font.ColorIndex =  3  And _
          rng.Cells(lngI,  1 ).Font.Name = "Arial" Then
            rng.Cells(lngI,  1 ).EntireRow.Insert
            lngI = lngI +  1 
        End If
    Next lngI
End Sub

Font.Name = "Arial"

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы