вот условия Найти минимум этих функций на заданном отрезке методом случайного поиска.
Используя метод случайного поиска, осуществить поиск минимума f(x) и f(x)*sin⁡(5*x) с заданной вероятностью попадания в окрестность экстремума P при допустимой длине интервала неопределенности ϵ. Определить необходимое число испытаний N. Численный эксперимент выполнить для значений P=0,9,0,91,...,0,99 и значений ϵ=(b-a)/q, где q=0.005,0.01,…,0.1.

мы генерируем случайные значения в количестве N и для каждого находим значение функции и среди их ищем мин этот мин берем и вносим в таблицу для унимодальной функции и для другой мультимодальное свой мин


ситуация такая кнопку для генерации случайных чисел и поиска минимума функзии для N переменных есть это на лист 1 заносится и находится минимум который мне надо перенести в таблицы в соответствующие ячейки

если я тут для примера взяла значение 30, то надо внести их в места соответствующие значению 30 из таблицы значений N

вот код макроса
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Selection.Copy
Sheets("Лист1").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "'=СЛЧИС()*7-5'"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=RAND()*7-5"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3:D922")
Range("D3:D922").Select
Range("E2").Select
ActiveCell.FormulaR1C1 = "'=-0,5*COS(0,5*D3)-0,5'"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=-0.5*COS(0.5*RC[-1])-0.5"
Selection.AutoFill Destination:=Range("E3:E922")
Range("E3:E922").Select
Range("F2").Select
ActiveCell.FormulaR1C1 = "'=(-0,5*COS(0,5*D3)-0,5)*SIN(5*D3)'"
Range("F3").Select
ActiveCell.FormulaR1C1 = "=(-0.5*COS(0.5*RC[-2])-0.5)*SIN(5*RC[-2])"
Range("F3").Select
Selection.AutoFill Destination:=Range("F3:F922")
Range("F3:F922").Select
Range("I2").Select
ActiveCell.FormulaR1C1 = "'=МИН(D3:ИНДЕКС(D:D;A2+2))'"
Range("H2").Select
ActiveCell.FormulaR1C1 = "=MIN(R[1]C[-4]:INDEX(C[-4],RC[-7]+2))"
Range("I3").Select
ActiveCell.FormulaR1C1 = "'=МИН(E3:ИНДЕКС(E:E;A2+2))'"
Range("H3").Select
ActiveCell.FormulaR1C1 = "=MIN(RC[-3]:INDEX(C[-3],R[-1]C[-7]+2))"
Range("I4").Select
ActiveCell.FormulaR1C1 = "'=МИН(F3:ИНДЕКС(F:F;A2+2))'"
Range("H4").Select
ActiveCell.FormulaR1C1 = "=MIN(R[-1]C[-2]:INDEX(C[-2],R[-2]C[-7]+2))"
Range("H5").Select





End Sub
Sub Макрос2()
'
' Макрос2 Макрос
'

'
Range("H3").Select
Selection.Copy
Sheets("Таблицы").Select
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R9").Select
Sheets("Лист1").Select
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Таблицы").Select
Range("O27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R29").Select
End Sub


второй макрос это я пыталась понять его логику если копировать эти две ячейки по очереди и переносить их на тот лист

я хотела вообще добавить  поискпоз ячейки которую я выбираю в самом начале и используя ее координаты через формулу добавляя опред количество строк и столбцов найти координаты ячеек в которые нужно внести значения  но поискпоз выдает ошибку