計算の合計を下のように書いて、グリットで計算しました。
そして、Gridの.EditCellでセルをダブルクリックして数値変更して、
Enterキーによって変更したときに、合計を計算しなおしたい
のですが、どうもうまくいきません。
どうかよろしくお願いいたします。
For i = 2 To .Rows - 1
         total = 0
         For j = 6 To .Cols - 1
               total = total + .Cell(flexcpText, i, j)
         Next
         .Cell(flexcpText, i, 5) = total
Next

できました。
AfterEditを使ったらよかったんですね。
お騒がせしました。