Вставка пустых строк между имеющимеся

[Доктор]

Доброго дня Всем Жителям Форума!!!
Помогите Пожалуйста решить проблему - есть файл с кучей данных. Как БЫСТРО вставить пустые строки (положим по одной) между имеющимеся не пустыми!
Вариант "В ручную" отподает - данных очень много!!
Заранее спасибо!!!!
Док

[Step_UA]

Доброго. Используйте макрос

Sub lines()
  Dim row As Long, offset As Long, noNull As Boolean
  Const Column = 1 ' номер столбца по которому определяется наличие данных в строке
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        noNull = False
        For row = .row To .Rows.Count + .row - 1
            If noNull Then
                noNull = Cells(row + offset, Column) <> ""
                If noNull Then
                    Rows(row + offset).Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
                    offset = offset + 1
                  End If
              Else
                noNull = Cells(row + offset, Column) <> ""
              End If
          Next
      End With
    Application.ScreenUpdating = True
End Sub