VBA button to sum a column and return

Or if it's a table, maybe

Sub GetTotal()
With Sheet1.ListObjects("Table1")
    .ShowTotals = True
    .ListColumns("ColumnHeader").TotalsCalculation = xlTotalsCalculationSum
     v = .TotalsRowRange(.ListColumns("ColumnHeader").Index).Value
    .ShowTotals = False
    MsgBox v
End With
End Sub