ник: snipe
можно вот так
.Range(.Cells(2, 1), .Cells(12,1)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge
.Range(.Cells(13,1), .Cells(17,1)).Select
.Application.DisplayAlerts = False
.Application.Selection.Merge
.Range(.Cells(2, 1), .Cells(17,1)).Copy
.Range(.Cells(2, 2), .Cells(17,3)).Select
.Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
. Application.CutCopyMode = False