---

Sub LaskeLaskut()

    Dim ws As Worksheet
    Dim r As Long

    Set ws = ActiveSheet

    For r = 11 To 19

        ' Pienlähetyslisä: 15 €, jos lasku alle 50 €
        If ws.Cells(r, "B").Value < 50 Then
            ws.Cells(r, "C").Value = 15
        Else
            ws.Cells(r, "C").Value = 0
        End If

        ' Positiivisuus-kulu: 2,20 €, jos lasku alle 10 €
        If ws.Cells(r, "B").Value < 10 Then
            ws.Cells(r, "D").Value = 2.2
        Else
            ws.Cells(r, "D").Value = 0
        End If

        ' Maksettava yhteensä
        ws.Cells(r, "E").Value = _
            ws.Cells(r, "B").Value + _
            ws.Cells(r, "C").Value + _
            ws.Cells(r, "D").Value

    Next r

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

    MsgBox "Valmis! Kaikki laskut on laskettu.", vbInformation

End Sub