Free shipping calculation

Hello i need to calculate, in excel, many conditions and keep the profit margin at least 20%. The varibable are . Shipping cost . Product cost . Free shipping rate The product more cheap cost 1€/kg The markup is 50% The fix costs are 3€ The shipping cost depend from weight The free shipping is when order total is > 39€ The module is already done (look [login to view URL]), the goal is make a macro that test From Total products > 1€ to <= 500€ And Weight > 0 to <=100Kg And print all conditions when the profit margin is = 20% (i need to know how much is requied for fix the loss for each condition, so i will set a different supplement to ask to customers for each condition). This is very simple for who know Vba, the file is done at 98% You will pass me the file with all conditions printed (in the range indicated above) and the macro also (because i have to make some tests after with little change in conditions) I already tested a macro, and i think you simple improve it Sub Macro1() ' ' Macro1 Macro ' Do Range("m2").GoalSeek Goal:=10, ChangingCell:=Range("b2") Range("m3").GoalSeek Goal:=10, ChangingCell:=Range("b3") Range("m4").GoalSeek Goal:=10, ChangingCell:=Range("b4") Loop Until Abs(Range("m2")) + Abs(Range("m3")) + Abs(Range("m4")) <= Range("m5") MsgBox "Work done", vbInformation End Sub