VBA Autosum Column

[zkreflex]

I need help with vba code that autosums column O two cells below the last row of data.

I am currently using the following code:

Range("O2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
Application.CommandBars("Standard").Controls("Autosum").Controls("Sum").Execute
SendKeys "{ENTER}", True

The problem is it switches over to editing after the autosum command and doesn't execute the sendkey correctly.


Thanks guys

 

[Juglaz]

How about...

Sub sumo()
Dim Values As Range
Set Values = Range("O2", Range("O1048576").End(xlUp))
Range("O1048576").End(xlUp).Offset(2) = Application.Sum(Values)
End Sub

 

[kevatarvind]

try

Sub Test()
Range("O" & Rows.Count).End(xlUp).Offset(2, 0).FormulaR1C1 = "=SUM(R2C:R[-2]C)"
End Sub

 

[zkreflex]

That worked great, thanks

 

[kevatarvind]

That worked great, thanks

you have 2 code which one is working ?