Microsoft Office Forums - View Single Post

halogen_bulb · 11-15-2011, 01:27 AM

Hi,

How do I improve this code by getting the summation of the same column with varying rows?

Here is the code I use.

Code:

Sub sum()
'
' sum Macro
'    
    ActiveCell.FormulaR1C1 = "=SUM(R[-48]C:R[-1]C)"
    
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Im pretty sure there is a way to do it but I dont know how.

Please help

Thanks,