Range("A2").Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Range("A2").Select
ActiveCell.FormulaR1C1 = "Scale Factor"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Max value"
Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("B2", Range("B2").End(xlToRight)), Type:=xlFillDefault
Range("B3").Select
ActiveCell.FormulaR1C1 = "=MAX(C)"
Selection.AutoFill Destination:=Range("B3", Range("B3").End(xlToRight)), Type:=xlFillDefault
For i = 2 To 1 + nbercategories + nbercriteria
For k = 4 To fin
If IsNumeric(Cells(k, i)) Then Cells(k, i) = CDbl(Cells(k, i)) * Cells(2, i)
Next k
Next i
Calculate