---

Sub TeeKaikki()

    Dim ws As Worksheet
    Dim r As Long

    Set ws = ActiveSheet

    ' Keskiarvo, pienin ja suurin jokaiselle asiakkaalle
    For r = 10 To 14

        ws.Cells(r, 5).Formula = "=AVERAGE(B" & r & ":D" & r & ")"
        ws.Cells(r, 6).Formula = "=MIN(B" & r & ":D" & r & ")"
        ws.Cells(r, 7).Formula = "=MAX(B" & r & ":D" & r & ")"

    Next r

    ' Koko kesän myynti
    ws.Range("B17").Formula = "=SUM(B10:D14)"

    ' Euro-muotoilu
    ws.Range("B10:G14").NumberFormat = "#,##0.00 €"
    ws.Range("B17").NumberFormat = "#,##0.00 €"

    MsgBox "Valmis!"

End Sub