корректирование стоимости с учетом скидки

[Dem_]

Привет всем! Пожалуйста помогите решить очень сложную для меня задачу. Меня попросила моя девушка помочь, ну как тут откажешь. Сижу уже три часа, никак не могу понять как его сделать
Вот мое условие:
Книжный магазин имеет определенное количество покупателей, если покупатели являются постоянными клиентами магазину, то они имеют постоянную скидку 10%, если нет то они не получают скидку.
В прикрепленном файле, уже есть макрос, вот только он работает для одной строки, а если у меня их будет 1000.
Код макроса

Sub Books()
kilkist = Лист1.Cells(2, 2)
cina = Лист1.Cells(2, 3)
If Лист1.Cells(2, 4) = "Ні" Then
a = kilkist * cina
Лист1.Cells(2, 5) = a
End If
If Лист1.Cells(2, 4) = "Так" Then
a = kilkist * cina * 0.9
Лист1.Cells(2, 5) = a
End If
End Sub

http://turbobit.net/k1vr4n512b38.html

[VictorM]

Два замечания:
1. Файл намного проще упаковать и прекрепить к сообщению на форуме.
2. Для решения Вашей задачи (Вашей девушки) достаточно ввести в яч.D4 формулу

=ЕСЛИ(D2="Так";(B2*C2)-B2*C2/10;B2*C2)

и протянуть ее на нужное количество строк.
Вместо Hi можно писать что угодно, или вообще ничего не писать.

так

=ЕСЛИ(D2="Так";(B2*C2)*90%;B2*C2)

тоже вроде правильно считает

[Dem_]

А как макросом можно реализовать?

[VictorM]

ну, уж если так нужно макросом, обратите внимание на циклы
Управляющие структуры ... Циклы

[IgorGO]

вот вам макрос:

Sub Yes()
  [e2].Resize([b2].End(xlDown).Row - 1, 1).FormulaR1C1 = "=RC[-3]*RC[-2]*IF(RC[-1]=""Так"",9/10,1)"
End Sub

и будьте счастливы!