Hi there,

If I understand correctly you've done hte hard part already and already
identified your cells when you enter your headigns and values. All you
need do further is change the format of the cell.

Set rng = Cells(Rows.Count, 2).End(xlUp)

rng.Offset(2, -1).Value = "Total"
rng.Offset(2, -1).Font.Bold = True

rng.Offset(3, -1).Value = "Items"
rng.Offset(3, -1).Font.Bold = True

rng.Offset(2, 0).Value = Application.Sum(Range("B1", rng))
rng.Offset(2, 0).Font.Bold = True

rng.Offset(3, 0).Value = Application.Count(Range("B1", rng))
rng.Offset(3, 0).Font.Bold = True

Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit


I think that does it.

Good luck, Tris


--
Tristan
------------------------------------------------------------------------
Tristan's Profile: http://www.excelforum.com/member.php...o&userid=34061
View this thread: http://www.excelforum.com/showthread...hreadid=548773