calculate sum of range

[Paulg]

I posted previoulsy that I needed to select the cell below a column o
numbers in order to calculate a sum. I have that.

range("I1").End(xlDown).Offset(1, 0).Select 'Next Blank Cell in colum
i

I need coding to add to this line which will allow me to calculate th
sum of the column. I need the coding to account for spreadsheets wit
different numbers of rows.

Thanks

Pau

 

[JE McGimpsey]

One way:

With Range("I1").End(xlDown)
.Offset(1, 0).Value = _
Application.Sum(Cells(1, .Column).Resize(.Row))
End With

 

[Die_Another_Day]

Range("I1").End(xlDown).Offset(1, 0).Value = "=SUM(I1:I" & _
Range("I1").End(xlDown).Row & ")"

HTH

Die_Another_Day

 

[Paulg]

Thanks,

I would have never got that.

Paul