VBA и таблицы Word

[gaishnik]

Помогите выполнить такое задание:
создать программу для работы с числами в выделенном диапозоне таблицы Word. Программа должна осуществлять расчет следующих функций: сумма всех элементов, количество элементов, среднее арифметическое всех элементов, min и max элемент. Результат показывать на отдельной форме и записывать в буфер обмена. Осуществить вызов программы с использованием кнопки на панели инструментов и нажатия сочетания клавиш.

Sub Macro_1()
Dim List As Table
Set List = ThisDocument.Tables.Application.Selection
Dim Array_Var() As Double
Dim s, sr, min, max As Double
Dim i, j, m, k As Integer
e = 0
For i = 1 To High Step 1
For j = 1 To High Step 1
Array_Var(i,j) = CDbl(List.Cell(i, j))
Next i
Next j
s = 0
For i = 1 To High Step 1
For j = 1 To High Step 1
s = s + Array_Var(i, j)
Next i
Next j
k = 0
For i = 1 To High Step 1
For j = 1 To High Step 1
k = k + 1
Next i
Next j
sr = s / k
max = Array_Var(1, 1)
For i = 1 To High Step 1
For j = 1 To High Step 1
If Array_Var(i, j) > max Then max = Array_Var(i, j)
End If
Next i
Next j
min = Array_Var(1, 1)
For i = 1 To High Step 1
For j = 1 To High Step 1
If Array_Var(i, j) < min Then min = Array_Var(i, j)
End If
Next i
Next j
End Sub

Скажите, что исправить надо, так как я совсем новичок в VBA