Hello Dennis,

Here is the routine...


Code:
--------------------

Sub CalcPounds()

Dim LastRow As Range
Dim Pounds As Single
Dim RawPounds As Single

Set LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp)

For C = 3 To 7
Pounds = Pounds + ActiveSheet.Cells(LastRow.Row + 1, C).Value
Next C

RawPounds = ActiveSheet.Cells(LastRow.Row + 1, "A").Value
Pounds = Pounds / RawPounds

End Sub

--------------------


Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465
View this thread: http://www.excelforum.com/showthread...hreadid=496826