Sum Columns with code, column s vary in length

[Simon]

I am trying to SUM some columns. The only problem is the
columns are not always the same length. I have overcome
this by using the following code:
Range(ActiveCell, ActiveCell.Offset(-1, -1).End
(xlUp).Offset(3, 1)).Select
This selects all values in a column.

Can anyone help in adding the code to sum the selected
values above?

Thanks for any help

Simon

 

[Lance]

ActiveCell = Application.Sum(Range(ActiveCell,
ActiveCell.Offset(-1, -1).End(xlUp).Offset(3, 1)))