Automatic select of Total SUM column

Hi,

Does this help you?

Sub Automate_Sum()
Dim ws As Worksheet
Dim iLastColumn As Integer, iLastRow As Integer

For Each ws In ThisWorkbook.Worksheets

With ws

iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
iLastColumn = Application.WorksheetFunction.Match("Total SUM", .Rows(1))

.Cells(2, iLastColumn).Formula = "=SUM(C2:" & Cells(2, iLastColumn - 1).Address(0, 0) & ")"
.Cells(2, iLastColumn).AutoFill Destination:=Range(.Cells(2, iLastColumn), .Cells(iLastRow, iLastColumn))

End With

Next ws

End Sub

Sub J3v16()
Dim ws As Worksheet
For Each ws In Sheets
    With ws.Cells(1).CurrentRegion
        With .Offset(1).Resize(.Rows.Count - 1).Columns(.Columns.Count)
            .Formula = "=SUM(C2:" & .Cells(1, .Columns.Count - 1).Address(0, 0) & ")"
        End With
        .Cells(.Rows.Count + 1, .Columns.Count).Formula = "=SUM(" & .Cells(2, .Columns.Count).Address(0, 0) & ":" & .Cells(.Rows.Count, .Columns.Count).Address(0, 0) & ")"
    End With
Next ws
End Sub

Invalid attachment, but am guessing you want to total the SumTotal Column...See amended red snippet above...

Yep...red snippet added in post 3 does that...