Макрос для вставки строки с копированием

[Viktorkv]

Здравствуйте, просто необходима ваша помощь.
Имеется таблица
A B C D E F
1 2 9 119 534487.29 1279732.97
1 2 9 120 534451.45 1279836.76
1 2 9 121 534442.23 1279825.10
1
1 2 10 122 534115.74 1271671.51
1 2 10 123 534031.08 1271746.62
1 2 10 124 534093.17 1271665.32
Задача вставить перед пробелом строку с цифрами из первой строчки.
Исходник и результат приложил.

[IgorGO]

выполните этот макрос

Sub AddRows()
  Dim rg As Range
  Set rg = Cells(Rows.Count, 2).End(xlUp)
  Do
    If rg.End(xlUp).Row = 1 Then Rows(2).Copy Else rg.End(xlUp).EntireRow.Copy
    rg.Offset(1, 1).EntireRow.Insert shift:=xlDown:  If rg.Row = 1 Then Exit Do
    Set rg = rg.End(xlUp).End(xlUp)
  Loop
  Application.CutCopyMode = False
End Sub

при активном листе с Вашими исходными данными

[Viktorkv]

Спасибо Вам!