G
Gary Keramidas
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
Sub test()
lastrow = Worksheets("Sheet1").Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lastrow + 1).Formula = "=sum(B4:B" & lastrow & ")"
End Sub