---

Sub TeeTaulukko()

    Dim ws As Worksheet
    Dim kuukaudet As Variant
    Dim i As Long

    Set ws = ActiveSheet

    ' Kuukaudet C9:N9
    kuukaudet = Array("tammi", "helmi", "maalis", "huhti", _
                      "touko", "kesä", "heinä", "elo", _
                      "syys", "loka", "marras", "joulu")

    For i = 0 To 11
        ws.Cells(9, i + 3).Value = kuukaudet(i)
    Next i

    ' Keskiarvot B10:B15
    For i = 10 To 15
        ws.Cells(i, 2).Formula = "=AVERAGE(C" & i & ":N" & i & ")"
    Next i

    ' Yksi desimaali
    ws.Range("B10:B15").NumberFormat = "0.0"

    ' Sarakkeet C:N leveämmiksi
    ws.Columns("C:N").ColumnWidth = 10

    MsgBox "Valmis!", vbInformation

End Sub