Долгосрочная финансовая политика. Кривелевич М.Е. - 36 стр.

      Range(Cells(Start, "B"), Cells(Start, "F")).Select
      Selection.Copy
      Range(Cells(Start + 1, "B"), Cells(Finish, "B")).Select
      ActiveSheet.Paste
      Application.CutCopyMode = xlCopy
      Else
      MsgBox ("Заданы не все параметры!")
      End If
      End Sub

      Задать событию нажатие_на_кнопку «Очистить» следующий исходный текст:
      Private Sub CmdClear_Click()
      Const Start = 12 'Фиксация первой строки, с которой начинать заполнение
      Dim Finish ' Создаем новую переменную, пока Finish=0
      Finish = [F9].Value + Start - 1
      [Ставка] = ""
      [Срок] = ""
      [Сумма] = ""
      [выплат] = 1
      [Тип] = 0
      If Start < Finish Then Range(Cells(Start + 1, "A"), Cells(Finish, "F")).ClearContents
      End Sub

        Теперь шаблон автоматически масштабируется под число периодов выплаты кредита
и все, что требуется от пользователя – это заполнить исходные данные и нажать «Решить», а
потом очистить шаблон, нажав «Очистить»