Объединение и сумма выделенных ячеек (Excel)

Такое можно сделать либо вручную (предварительно подсчитать где-то сумму, затем объединить ячейки, а потом прописать эту сумму в объединенной), либо макросом. Макрос такой:

Sub MergeAndSum()

If TypeName(Selection) <> "Range" Then Exit Sub

Application.DisplayAlerts = False

With Selection

.Cells(1) = Application.WorksheetFunction.Sum(Selection)

.Merge

End With

Application.DisplayAlerts = True

End Sub

Выделяем ячейки для объединения и запускаем макрос.