Помогите пожалуйста создать макрос,или объясните как

А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?Sub Макрос1()'' Макрос1 Макрос''  s = 0  MsgBox "Выбраны ячейки:  " & ActiveWindow.RangeSelection.Address  For n = 1 To Selection.Rows.Count    s = s + Selection.Cells(n, n)  Next n  MsgBox "сумма диагональных элементов: " & s  End SubНа самом листе Excel  заводим кнопку  CommandButton1  и даем название кнопке "Подсчет"Набираем процедуру   CommandButton1_ClickPrivate Sub CommandButton1_Click()  Макрос1End SubПосле выделения диапазона ячеек мышью нажимаем кнопку  "Подсчет"  и  получаем результат.Решение в прикрепленном файле.