Загрузка данных

Sub LaskeLaskut()

    Dim r As Long

    For r = 11 To 19

        Cells(r, 3).FormulaLocal = "=JOS(B" & r & "<50;15;0)"
        Cells(r, 4).FormulaLocal = "=JOS(B" & r & "<10;2,2;0)"
        Cells(r, 5).FormulaLocal = "=B" & r & "+C" & r & "+D" & r

    Next r

    Range("B11:E19").NumberFormat = "0,00 €"

End Sub