---

Sub TeeKaikki()

    Dim ws As Worksheet
    Dim r As Long
    Dim shp As Shape

    Set ws = ActiveSheet

    ' Заголовки
    ws.Range("E8").Value = "yhteensä"
    ws.Range("F8").Value = "keskiarvo"

    ' Сумма и среднее для всех строк
    For r = 9 To 21

        ws.Cells(r, "E").Formula = "=SUM(B" & r & ":D" & r & ")"

        ws.Cells(r, "F").Formula = "=AVERAGE(B" & r & ":D" & r & ")"

    Next r

    ' Среднее с одним знаком после запятой
    ws.Range("F9:F21").NumberFormat = "0.0"

    ' Автоматическая ширина колонок
    ws.Columns("A:F").AutoFit

    ' Добавляем подходящую картинку-иконку (солнце)
    Set shp = ws.Shapes.AddShape(msoShapeSun, _
        ws.Range("H9").Left, _
        ws.Range("H9").Top, _
        80, 80)

    shp.TextFrame2.TextRange.Text = "☀"
    shp.TextFrame2.TextRange.Font.Size = 28

    MsgBox "Valmis! Summat ja keskiarvot laskettu.", vbInformation

End Sub