Ошибка

[Tomoa]

Продукция бумажной фирмы выпускается в виде бумажных рулонов стандартной длины, равной L метрам. По специальным заказам фирма поставляет потребителям рулоны и других размеров, для чего производится раскрой стандартных рулонов. Необходимо удовлетворить заказ, минимизируя отходы.
Помогите найти ошибку

Function Âàðèàíòû(a1 As Integer, a2 As Integer, a3 As Integer, a4 As Integer)
Dim R As Integer, i1 As Integer, i2 As Integer, i3 As Integer, i4 As Integer
Dim L As Integer, m As Integer, t As Integer, S As Integer
L = Range("O2").Value 'Äëèíà ñòàíäàðòíîãî ðóëîíà
R = 0
m = Application.Min(a1, a2, a3, a4) 'âûáîð ìèíèìàëüíîé äëèíû íåñòàíäàðòíîãî ðóëîíà
t = L \ m 'ìàêñèìàëüíîå ÷èñëî íåñòàíäàðòíûõ ðóëîíîâ, ïîëó÷åííîå ïðè ðàñêðîå ñòàíäàðòíîãî
For i1 = 0 To t 'ñîçäàíèå öèêëà, â êîòîðîì áóääóò ðàñ÷èòàíû âàðèàíòû ðàñêðîÿ
For i2 = 0 To t
For i3 = 0 To t
For i4 = 0 To t
S = L - a1 * i1 - a2 * i2 - a3 * i3 - a4 * i4 'ðàñ÷åò âåëè÷èíû îñòàòêà
If (S >= 0) And (S < m) Then
R = R + 1
Cells(R + 2, 1) = R
Cells(R + 2, 2) = i1
Cells(R + 2, 3) = i2
Cells(R + 2, 4) = i3
Cells(R + 2, 5) = i4
Cells(R + 2, 6) = S
End If
Next i4
Next i3
Next i2
Next i1
End Function

Public Sub Ðàñêðîé()
Dim V As Integer
V = Âàðèàíòû(Cells(2, 2).Value, Cells(2, 3).Value, _
Cells(2, 4).Value, Cells(2, 5).Value)
Range("I3").FormulaLocal = "=ÑÓÌÌÏÐÎÈÇÂ(B3:B" & (V + 2) & ";H3:H" & (V + 2) & ")"
Range("J3").FormulaLocal = "=ÑÓÌÌÏÐÎÈÇÂ(C3:C" & (V + 2) & ";H3:H" & (V + 2) & ")"
Range("K3").FormulaLocal = "=ÑÓÌÌÏÐÎÈÇÂ(D3:D" & (V + 2) & ";H3:H" & (V + 2) & ")"
Range("L3").FormulaLocal = "=ÑÓÌÌÏÐÎÈÇÂ(E3:E" & (V + 2) & ";H3:H" & (V + 2) & ")"
Range("M3").FormulaLocal = "=ÑÓÌÌÏÐÎÈÇÂ(F3:F" & (V + 2) & ";H3:H" & (V + 2) & ") + " & _
"B2*(I3-I2) + C2*(J3-J2) + D2*(K3-K2) + E2*(L3-L2)"
SolverReset
SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$H$3:$H$" & (V + 2)
SolverAdd CellRef:="$H$3:$H$24", Relation:=4, FormulaText:="öåëîå"
SolverAdd CellRef:="$I$3:$L$3", Relation:=3, FormulaText:="$I$2:$L$2"
SolverAdd CellRef:="$H$3:$H$" & (V + 2), Relation:=3, FormulaText:="0"
SolverOptions MaxTime:=100, Iterations:=100, Precision:=0.000001, AssumeLinear _
:=True, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
SolverOk SetCell:="$M$3", MaxMinVal:=2, ValueOf:="0", ByChange:="$H$3:$H$" & (V + 2)
SolverSolve
End Sub

программу писала не я, попросили найти ошибку, а у меня не получается...