for i=0 to ubound(a,1)-1
for j=0 to ubound(a,2)-1
a(i, ubound(a,2))=a(i, ubound(a,2)) + a(i, j)
a(ubound(a,1), j)=a(ubound(a,1), j) + a(i, j)
next
next

Где а - название твоего массива
размерность должна быть на +1 больше чем сама табличка с данными, в эту +1 и будут суммы подсчитываться