Michael's right, but if you must:


Sub test()

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

With iEnd.Offset(1, 0)
.Formula = "=SUM($B$2:" & iEnd.Address & ")"
.Font.Bold = True
End With

End Sub


--
Dan