Calculate Totals Within A Range Object

I have a range object called tbl which consists of a number of rows and columns of numbers.

I have another range object called e that is the total row just beneath tbl. I want to sum up the total of each column within tbl and put the result in the appropriate cell within e.

I can do it using a for/next loop as shown below but there could be 10,000 rows and a hundred columns in my range which woulod probably take forever. I know there must be another simple way to do it but despite racking my brains and trying various things I can't get it. I'll be very grateful for any assistance.

My current solution is as follows. (e is selected).

'Calculate totals and display them

For g = 1 To tbl.Columns.Count ' the number of columns
h = 0 ' Holds the column total
For f = 1 To tbl.Rows.Count - 1 ' The number of rows
h = h + tbl.Rows([f]).Cells(g).Value 'add the cell value
Next
e.Cells(g).Value = h ' Display the column total
Next