---

Sub TeeKaikki()

    Dim ws As Worksheet
    Dim c As Long

    Set ws = ActiveSheet

    ' YHTEENSÄ — сумма по каждому месяцу
    For c = 2 To 5
        ws.Cells(14, c).Formula = "=SUM(" & _
            ws.Cells(9, c).Address(False, False) & ":" & _
            ws.Cells(12, c).Address(False, False) & ")"
    Next c

    ' KESKIARVO — среднее по каждому месяцу
    For c = 2 To 5
        ws.Cells(16, c).Formula = "=AVERAGE(" & _
            ws.Cells(9, c).Address(False, False) & ":" & _
            ws.Cells(12, c).Address(False, False) & ")"
    Next c

    ' 2 знака после запятой
    ws.Range("B16:E16").NumberFormat = "0.00"

    MsgBox "Valmis!", vbInformation

End Sub