Добавление двух строк после каждой строки

[artemqa]

Добрый день!

Есть файл, где каждая строчка заполнена:
После каждой строки надо вставить две пустые строки.

Уже десяток макросов перепробовал - все не то!
Выручите пожалуйста...

[Hugo121]

Sub tt()
    Dim i&
    With Selection
        For i = .Rows.Count To 1 Step -1
            .Rows(i).Offset(1).Resize(2).EntireRow.Insert Shift:=xlDown
        Next
    End With
End Sub

Сперва выделить ячейки!

[IgorGO]

полагаю человечеством написаны миллиарды макросов, перебирать - это не правильный путь...

Sub Add2BlankRows()
  Dim r As Long
  r = 22
  Do
    If Cells(r, 2) <> "" Then
      Rows(r + 1).Resize(2).Insert Shift:=xlDown
      Cells(r, 2).Resize(3, 1).MergeCells = True
      r = r + 2
    End If
    r = r + 1
  Loop Until Cells(r , 2) & Cells(r + 1, 2) = ""
End Sub

22 замените на номер первой строки, с которой начать обработку

[artemqa]

Спасибо Вам большое!