VBA Sum to Dynamic Last Column

[eeng]

Hi

I need the VBA for sum with dynamic last column range

The Data may be increase or decrease in column (unknown range), but I need the sum formula in the last column.

Kindly provide the VBA Code

 

[AlanSidman]

Option Explicit

Sub SumL17()

    Dim lr As Long, lc As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    Range("L17") = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc)))


End Sub

 

[eeng]

Option Explicit

Sub SumL17()

    Dim lr As Long, lc As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    Range("L17") = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc)))


End Sub

thanks .. it work....

 

[eeng]

Option Explicit

Sub SumL17()

    Dim lr As Long, lc As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    lc = Cells(1, Columns.Count).End(xlToLeft).Column
    Range("L17") = WorksheetFunction.Sum(Range(Cells(2, lc), Cells(lr, lc)))


End Sub

How the code if the data on different workbook?
(the data on Workbook A, and the result on workbook B)

Thanks