Sub Generate_Report_Remuneration()
Sheets("БД вознаграждение 2014").Select ' Выбор листа с данными для отчета
' проверка состояния курсора для запуска расчета
Const_TTL = "Формирование отчета по возмещению затрат"
Vybor = MsgBox(prompt:="Отчет генерировать по данным текущей строки ?", _
Title:=TTL, Buttons:=vbYesNo)
Select Case Vybor
Case Is = vbYes
MsgBox prompt:="Выбрана кнопка ДА. Формируется расчет", Title:=TTL, Buttons:=vbInformation
Case Is = vbNo
MsgBox prompt:="Выбрана кнопка НЕТ. Поставить курсор на строку для отчета", Title:=TTL, Buttons:=vbInformation
Exit Sub
End Select

NumRow = ActiveCell.Row 'номер активной ячейки - данные для считывания

' считывание исходных данных для передачи в расчет
' проверка - эксперт или руководитель?

hour_rate = Sheets("БД вознаграждение 2014").Cells(NumRow, 8) 'переменная "ставка_почасовой_оплаты"

status_executor = Sheets("БД вознаграждение 2014").Cells(NumRow, 7) 'переменная "статус исполнителя"

expert_group_lim = 4
expert_group_size = Sheets("БД вознаграждение 2014").Cells(NumRow, 11) 'переменная "численность группы"

education_program_level = Sheets("БД вознаграждение 2014").Cells(NumRow, 9) 'переменная "уровень образовательной программы"
students_quantity = Sheets("БД вознаграждение 2014").Cells(NumRow, 10) 'переменная "количество обучающихся"

' СТАТУС: РУКОВОДИТЕЛЬ ЭКСПЕРТНОЙ ГРУППЫ =====================================================

If status_executor = "РЭГ" Then

' внесение данных в лист расчета вознаграждения эксперта
Sheets("Модель_Приложения_1").Select ' выбор шаблона

ActiveSheet.Range(Cells(10, 4), Cells(10, 5)).Clear 'очистка трудоемкости проеверки отчетов от предыдущих значений

' Цикл заполнения ставки оплаты в расчете вознаграждения


For I = 8 To 11