Объединение ячеек когда на листе стоит защита

[sasha555]

Добрый день!!! Помогите, объединить с помощью макроса выделенный диапазон ячеек без потери данных.

[Hugo121]

Зачем объединять уже объединённое?

[sasha555]

вот нашел код, только здесь удаляются данные с ячеек кроме самой верхней ячейки

Sub Merge_Cell_With_Format()
Dim rRange As Range, rMrgRange As Range, wsTempSh As Worksheet, wsActSh As Worksheet
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Set wsActSh = ActiveSheet: Set wsTempSh = Sheets.Add(, Sheets(Sheets.Count)): wsTempSh.Name = "Временный_лист"
wsActSh.Activate
Set rRange = Selection: rRange.Copy wsTempSh.Range(rRange.Address)
Set rMrgRange = wsTempSh.Range(rRange.Address)
rMrgRange.Merge: rMrgRange.Copy: rRange.PasteSpecial xlPasteFormats: wsTempSh.Delete
Set wsActSh = Nothing: Set wsTempSh = Nothing: Set rMrgRange = Nothing: Set rRange = Nothing
Application.ScreenUpdating = True: Application.DisplayAlerts = True
End Sub

[kuklp]

Сюда посмотрите:
http://www.excelworld.ru/forum/3-1859-1