---

Sub TeeKaikki()

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

    Set ws = ActiveSheet

    ' Kuukaudet
    kuukaudet = Array("Tammikuu", "Helmikuu", "Maaliskuu", _
                      "Huhtikuu", "Toukokuu", "Kesäkuu", _
                      "Heinäkuu", "Elokuu", "Syyskuu", _
                      "Lokakuu", "Marraskuu", "Joulukuu")

    ' Täytä kuukaudet B9:B20
    For i = 0 To 11
        ws.Cells(9 + i, 2).Value = kuukaudet(i)
    Next i

    ' VOITTO = TULOT - MENOT
    For i = 9 To 20
        ws.Cells(i, 5).Formula = "=C" & i & "-D" & i
    Next i

    ' YHTEENSÄ
    ws.Range("C22").Formula = "=SUM(C9:C20)"
    ws.Range("D22").Formula = "=SUM(D9:D20)"
    ws.Range("E22").Formula = "=SUM(E9:E20)"

    ' KESKIARVON
    ws.Range("C23").Formula = "=AVERAGE(C9:C20)"
    ws.Range("D23").Formula = "=AVERAGE(D9:D20)"
    ws.Range("E23").Formula = "=AVERAGE(E9:E20)"

    ' PIENIN
    ws.Range("C24").Formula = "=MIN(C9:C20)"
    ws.Range("D24").Formula = "=MIN(D9:D20)"
    ws.Range("E24").Formula = "=MIN(E9:E20)"

    ' SUURIN
    ws.Range("C25").Formula = "=MAX(C9:C20)"
    ws.Range("D25").Formula = "=MAX(D9:D20)"
    ws.Range("E25").Formula = "=MAX(E9:E20)"

    MsgBox "Valmis!"

End Sub