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

А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос? 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_Click Private Sub CommandButton1_Click()   Макрос1 End Sub После выделения диапазона ячеек мышью нажимаем кнопку  "Подсчет"  и  получаем результат. Решение в прикрепленном файле.