How do I sum a column of unknown length using a macro
 

How do I sum a column of unknown length using a macro
 

this would sum everythiing in column B starting in b4

Sub test()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row

Range("B" & lastrow + 1).Formula = "=sum(B4:B" & lastrow & ")"

End Sub

--


Gary


"SandyPaul" wrote in message
...