Проблема Не для идиотов.

[PeterStormare]

В овале: начало
В шестиугольнике: Cells(i, 2) <> ""
От шестиугольника в ромб: Cells(i, 2)
От ромба по плюс стороне, в прямоугольнике:d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
От ромба по минус стороне в прямоугольнике: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d

Это блок схема до этой части вроде.

Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d

Точность не гарантирую, т.к. этот язык прог-я мне не знаком, БС построил на основе своих знаний английского и азов прог-я на паскале.

Юзать только если других вариантов нет.