Напишите макрос для Excel для вычисления среднего значения в ячейках B3-B14 и с постановкой этого значения в ячейку Е3, заранее благодарю!!!

Sub MyMid()     a = Range("B3:B14")     n = UBound(a, 1)     s = 0     For i = 1 To n         s = s + a(i, 1)     Next i     Range("E3").Value = s / n End Sub Можно и короче записать: Sub MyMid2()     Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14")) End Sub