Question

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

Answer 1

А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
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

После выделения диапазона ячеек мышью нажимаем кнопку  "Подсчет"  и  получаем результат.
Решение в прикрепленном файле.