Sub Macro2() ' ' Macro2 Macro ' ' Range("AG10:AH18").Select Application.CutCopyMode = False Selection.ClearContents Range("AF10").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF11").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG11").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF12").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG12").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF13").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG13").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF14").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG14").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF15").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG15").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF16").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG16").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF17").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG17").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AF18").Select Application.CutCopyMode = False Selection.Copy Range("A6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("J6").Select Selection.Copy Range("I6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Calculate SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$H$6", MaxMinVal:=2, ValueOf:=0, ByChange:="$I$6", Engine:=1 _ , EngineDesc:="GRG Nonlinear" SolverSolve userFinish:=True SolverSolve userFinish:=True SolverSolve userFinish:=True Range("I6:J6").Select Selection.Copy Range("AG18").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub