Hello
I have a spreadsheet, in which I have 3 tables in coloum I:N. Rows of these tables varies depending upon the data in the table. I need a macro which auto sums in the grand total row (Last Row of Each Table) for the data in the respective table.
The code that I am using is giving me an auto sum in the next balnk cell, but I want it to be in Grant Total row only. There may be gaps in the table.
As of now I am using the following code:
Sub Slide07_Global_AutoSum()
For Each NumRange In Columns("I:N").SpecialCells(xlConstants, xlNumbers).Areas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
c = NumRange.Count
Next NumRange
NoData:
Call Slide06_SEMEA
End Sub
I have a spreadsheet, in which I have 3 tables in coloum I:N. Rows of these tables varies depending upon the data in the table. I need a macro which auto sums in the grand total row (Last Row of Each Table) for the data in the respective table.
The code that I am using is giving me an auto sum in the next balnk cell, but I want it to be in Grant Total row only. There may be gaps in the table.
As of now I am using the following code:
Sub Slide07_Global_AutoSum()
For Each NumRange In Columns("I:N").SpecialCells(xlConstants, xlNumbers).Areas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 1).Formula = "=SUM(" & SumAddr & ")"
c = NumRange.Count
Next NumRange
NoData:
Call Slide06_SEMEA
End Sub