Here is the code leading up to this point.

'sort sheet by descending extended cost

Range("E1").Select

Selection.sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _

OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

'Paste highest value in Cum Total Column

Range("E2").Select

Selection.Copy

Range("H2").Select

ActiveCell.PasteSpecial

'add formula to tally up Cum Cost all the way down (column H)

Range("H3").Select

ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-3]"

Dim i As Long

Dim z As Range

i = [F65536].End(xlUp).Row

[H4] = "=R[-1]C+RC[-3]"

[H4].Copy Range("H4:H" & i)

Set z = Sheets("All But CONS").Range("H4:H" & i)

I've been asked to use the following formula: H2/$H$###

where ### stands for the line count.

Any good ideas?