Range("E41+Count").Select
This is improper syntax. The following is preferred:
Range("E41").Offset(Count,0).Select
or you could use
Range("E" & 41 + Count).Select
In general, avoid using Range without the sheet name in front of it. Also, only Select when you need to, and that's almost never. Here's an example that doesn't use any Select methods.
Sub Complete()
Dim lStrt As Long, lFnsh As Long
Dim lCount As Long, lCount2 As Long
Dim lIncrement As Long
For lCount = lStrt To lFnsh Step lIncrement
lCount2 = lCount / lIncrement
Sheet1.Range("D41").Offset(lCount2, 0).Value = lCount
SolverReset
SolverOk SetCell:="$D$36", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$7:$R$7"
SolverAdd CellRef:="$S$7", Relation:=2, FormulaText:="1"
SolverAdd CellRef:="$D$7:$R$7", Relation:=1, FormulaText:="$D$6:$R$6"
SolverAdd CellRef:="$D$7:$R$7", Relation:=3, FormulaText:="$D$5:$R$5"
SolverAdd CellRef:="$D$37", Relation:=2, FormulaText:=Sheet1.Range("D41").Offset(lCount2, 0).Address
SolverOk SetCell:="$D$36", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$7:$R$7"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Sheet1.Range("E41").Offset(lCount2, 0).Value = Sheet1.Range("D37").Value
Sheet1.Range("F41").Offset(lCount2, 0).Value = Sheet1.Range("D36").Value
Sheet1.Range("D7:R7").Copy Sheet1.Range("I41").Offset(lCount2, 0)
Next lCount
End Sub