Autosum for dynamic Column

faisalk · February 12th, 2015, 08:42 AM

How can I change the code below to auto-sum a dynamic column, not just the part where it ended when I recorded the macro.

Code:

Code:

    Range("F1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]/60"
    Range("F1").Select
    Selection.NumberFormat = "0.00;[Red]0.00"
    Selection.AutoFill Destination:=Range("F1:F82"), Type:=xlFillDefault
    Range("F1:F82").Select
    Range("F82").Select
    Selection.Font.Underline = xlUnderlineStyleSingle
    Range("F83").Select
    Selection.Font.Bold = True
    ActiveCell.FormulaR1C1 = "=SUM(R[-82]C:R[-1]C)"

I want to have the column summed and the sum to be placed on the next column just below the last value it detects, bolded.

TIA.

Shasur · February 15th, 2015, 10:41 AM

Hi

Can you try the WorksheetFunction.Sum in your VBA code

Cheers
Shasur