---

Sub LaskeAlennukset()

    Dim ws As Worksheet
    Dim r As Long

    Set ws = ActiveSheet

    For r = 11 To 22

        ' Alennus
        If ws.Cells(r, "B").Value > 100 Then
            ws.Cells(r, "C").Value = 10
        Else
            ws.Cells(r, "C").Value = 0
        End If

        ' Veloitus = yhteissumma - alennus
        ws.Cells(r, "D").Value = _
            ws.Cells(r, "B").Value - ws.Cells(r, "C").Value

    Next r

    ' Eurot
    ws.Range("B11:D22").NumberFormat = "0.00 €"

    MsgBox "Valmis!", vbInformation

End Sub