Создать макрос

[Missis]

Помогите написать макрос из книги 1, чтоб получилась книга 2, т.е. вырезать строку, и вставить ее в предыдущую [предыдущая строка(пробел)---(пробел)вставленная строка]. Например:
То что было:
Кем назначается Генеральный Секретарь ООН?
Генеральная Ассамблея ООН
И то что должно получиться:
Кем назначается Генеральный Секретарь ООН? --- Генеральная Ассамблея ООН
Спасибо.

[staniiislav]

а формулой не подойдет?

=ИНДЕКС([Книга1.xlsx]Лист1!$B$1:$B$26;ПОИСКПОЗ(A1;[Книга1.xlsx]Лист1!$B$1:$B$26;0);1)&"---"&ИНДЕКС([Книга1.xlsx]Лист1!$B$1:$B$26;ПОИСКПОЗ(A1;[Книга1.xlsx]Лист1!$B$1:$B$26;0)+1;1)

[Missis]

Сообщение от staniiislav

а формулой не подойдет?

=ИНДЕКС([Книга1.xlsx]Лист1!$B$1:$B$26;ПОИСКПОЗ(A1;[Книга1.xlsx]Лист1!$B$1:$B$26;0);1)&"---"&ИНДЕКС([Книга1.xlsx]Лист1!$B$1:$B$26;ПОИСКПОЗ(A1;[Книга1.xlsx]Лист1!$B$1:$B$26;0)+1;1)

Желательно макрос. Т.к. это один и тот же документ - книга 1 это то, что было до, а книга 2 , то как должно получиться после исправления макросом.

[kuklp]

Без сохранения:

Public Sub www()
    Dim sh As Worksheet, i&, j&: j = 1
    Set sh = ThisWorkbook.Worksheets("Лист1")
    With ThisWorkbook.Worksheets.Add
        For i = 1 To sh.[a65536].End(xlUp).Row Step 2
            .Cells(j, 1) = sh.Cells(i, 1) & " --- " & sh.Cells(i + 1, 1)
            j = j + 1
        Next
        .Move
    End With
End Sub