Напишите макрос для 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