[Delirium]

pva, я что то не совсем понял смысл. вот как пример:

Код:

Sub Макрос1()
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    ActiveCell.FormulaR1C1 = "some text"
End Sub

Скрипт записан макросом. При его применении выделенная пользователем область группируется в 1 ячейку, и в нее пишется текст "some text".

Код:

    Selection.Copy
    Range("D17").Select
    ActiveSheet.Paste

А этот код копирует в буфер выделенный диапазон и вставляет его в ячейку D17.

Или нужно было не это?