не могу разобраться с макросом

[Milana90]

Помогите разобраться с макросом
Если удалить предпоследнюю строку и строку End With в начале,то не считает правильно. Так же в макрос вставлен поиск решений. Во вложенном файле вкладка мое моделирование
Dim i As Integer
End With
For i = 1 To 10
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Calculate
Rows("30:30").Select
Selection.Insert Shift:=xlDown
Range("M24:S24").Select
Selection.Copy
Range("M30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M30").Select
Application.CutCopyMode = False
Selection.Copy
Range("N13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N30").Select
Application.CutCopyMode = False
Selection.Copy
Range("N15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O30").Select
Application.CutCopyMode = False
Selection.Copy
Range("N16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P30").Select
Application.CutCopyMode = False
Selection.Copy
Range("N18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q30:S30").Select
Application.CutCopyMode = False
Selection.Copy
Range("I17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B8:K8").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("B7:K8"), Type:=xlFillDefault
Range("B7:K8").Select
SolverOk SetCell:="$N$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$B$7:$M$7"
SolverSolve UserFinish:=True
Range("B7:K7").Select
Selection.Copy
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L10").Select
Application.CutCopyMode = False
Selection.Copy
Range("L30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Next i
With Aplication
End Sub

[Hugo121]

А если не удалять - то считает?

[Milana90]

Сообщение от Hugo121

А если не удалять - то считает?

Не считает, выдет ошибку: Compile error: End With without With

Если удалить строку эту, то выдает ошибку: Compile error: Expected End With

Если удалить строку в начале End With и With Aplication, то выдает одни нули, то есть поиск решения не работает

[Hugo121]

Что то Вы, Милана, совсем синтаксис не знаете...
Эти две строки употребляются только в таком виде:

With Application
.Calculation = xlManual
End With

К тому же у Вас написано Aplication

Т.е. удалив эти строки - код заработал.
Ну а почему выдаёт нули - это другой вопрос, тут нужно видеть данные.
Вернее, без данных вникать в код совершенно не охота...

[Milana90]

Сообщение от Hugo121

Что то Вы, Милана, совсем синтаксис не знаете...
Эти две строки употребляются только в таком виде:

With Application
.Calculation = xlManual
End With

К тому же у Вас написано Aplication

Т.е. удалив эти строки - код заработал.
Ну а почему выдаёт нули - это другой вопрос, тут нужно видеть данные.
Вернее, без данных вникать в код совершенно не охота...

Я действительно его ВООБЩЕ не знаю, это всего лишь задание в универе.

Преподаватель, говорил что это нужно, вот и пыталась сделать с ними, только что-то не получается(

[Hugo121]

Вероятно преподаватель объяснял, зачем это нужно и как это используется?

[Milana90]

Нет, он именно говорил что и куда вставлять надо, конкретно на примере