excel vba資料加總的寫法

想請教大家現在有一份資料要如何利用 vba來計算出想要的結果(不是用excel喔~)原始資料集資料結果如下列連結!!https://www.dropbox.com/s/qk345d7k2sz7ph6/count.xlsx目前只想到用sumif

可是攔與列都要各自加總一次...迴圈的話也不知道要如何下手煩請幫幫忙
原資料　ABCDEF1NameItemID1月28日1月29日1月30日2AAdd1　333　3ANone2　444　4AAdd3222　　5ANone4333　　6AAdd5111　5557ANone6222　　統計後資料且需能增欄增列　ABCDEF1NameItemID1月28日1月29日1月30日Count_addCount_none2AAdd1　333　333　3ANone2　444　　4444AAdd3222　　222　5ANone4333　　　3336AAdd5111　555666　7ANone6222　　　222Sub_Add3333335551221　Sub_None5554440　999Total222111-555-1221999恐篇幅不夠程式碼參考意見009

010

011~參考檔案http://www.funp.net/964386
版主是要用何種解決方式???1.函數2.程式
想請教要如何用程式撰寫!!!!!
Sub Test02()Dim i%

j%Dim xAr(1 To 2

1 To 5)Dim xR As RangeFor Each xR In [B2:B7]i = IIf(xR =