Описать каждую строку программы что и зачем!

[Lexsey]

Sub Кнопка2()
Dim strCells() As String
Dim intCount As Integer
Dim rngText As Range
Dim intCells As Integer
Dim f As Double

If Selection.Information(wdWithInTable ) = True Then
k = Selection.Information(wdStartOfRang eRowNumber)
l = Selection.Information(wdStartOfRang eColumnNumber)
m = Selection.Information(wdEndOfRangeC olumnNumber)
n = Selection.Information(wdEndOfRangeR owNumber)
intCells = Selection.Cells.Count
ReDim strCells(intCells)
intCount = 1
For Each celTable In Selection.Cells
Set rngText = celTable.Range
rngText.MoveEnd Unit:=wdCharacter, Count:=-1
strCells(intCount) = rngText
intCount = intCount + 1
Next celTable
sum = 0
For i = 1 To (m - l + 1) * (n - k + 1)
f = Val(strCells(i))
If (f = Empty) Then f = "0"
sum = f + sum
Next i
MsgBox "Сумма выделенных ячеек " + Str(sum), vbInformation, "Вывод результата"
Else: MsgBox "Нет выделенного блока ячеек таблицы", vbCritical, "Ошибка"
End If
End Sub