Как склеить текст

[Protector81]

Как склеить текст из свободно выделенной области в одну ячейку?
Необходимо выполнить данную функцию с помощью VBA. в связи с тем что текст в последующем будет переноситься на другую страницу в конец списка.
Образец прилагается...

Заранее спасибо.

[Slavatron1984]

=СЦЕПИТЬ(B4;C4)

[Protector81]

Сцепить не подходит в связи с тем, что диапазон может периодически изменятся ... Цель собрать данные в одну ячейку. как это сделано в приложенном файле...

[alex77755]

А функция тоже не подходит?
В ячейке

=Объединить(B4:C12)

В модуле:

Function Объединить(R As Range)
Dim J
For J = 1 To R.Rows.Count
Объединить = IIf(Объединить = "", R(J, 1) & "  " & R(J, 2), _
Объединить & vbCrLf & R(J, 1) & "  " & R(J, 2))
Next J
End Function

В кнопке: (при выделенном диапазоне)

Private Sub CommandButton1_Click()
MsgBox Объединить(Selection)
End Sub

[kuklp]

Как вариант:

Private Sub CommandButton1_Click()
    Dim r As Range: Set r = Selection.Columns(1)
    If Selection.Count = 1 Then MsgBox "Выделите диапазон!": Exit Sub
    [g16] = Join(Application.Transpose(Evaluate(r.Address & "&"" ""&" _
    & r.Offset(, 1).Address)), vbLf)
End Sub

[Protector81]

Спасибо. За помощь с учетом того, что данного кода достаточно для решения моей задачи... в

Private Sub CommandButton1_Click()
    Dim R As Range: Set R = Selection.Columns(1)
    I = Selection.Columns.Count
    If Selection.Count = 1 Then MsgBox "Âûäåëèòå äèàïàçîí!": Exit Sub
    [g16] = Join(Application.Transpose(Evaluate(R.Address & "&"" ""&" _
    & R.Offset(, 3).Address)), vbLf)
End Sub

& R.Offset(, 3).Address в этой части кода подставил номер необходимой колонки и полчил то, что необходимо...

Но изначально думал, что диапазон будет свободно изменяемый тобиш каждый раз N строк и I столбцов.

Еще раз большое спсибо