Using VBA to Autosum variable rows

[Jaysilva]

Hi Basically i download data from my in house system. The Coloumns are always the same they are fixed and go from column A to W. The rows vary with the amount of data. I need to autosum the date in columns L to W. The autosums need to be at the end of the last data entry cell at the bottom. When i create a macro and apply it to a different data range it messes up the autosum. Any help will be hugely appreciated.

 

[petertenthije]

Sub Macro1()    Range("L1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
    Selection.Copy
    ActiveCell.Offset(0, 11).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    ActiveSheet.Paste
    Calculate
End Sub

 

[Jaysilva]

Thanks Petertenthije, but i need the autosums for columns K to V from row 2 downwards.

 

[petertenthije]

Just change the start point from L1 to K1, and it will calcualte K:V instead of L:W.

Sub Macro1()
    Range("K1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Selection.FormulaR1C1 = "=SUM(R2C:R[-1]C)"
    Selection.Copy
    ActiveCell.Offset(0, 11).Select
    Range(Selection, Selection.End(xlToLeft)).Select
    ActiveSheet.Paste
    Calculate
End Sub