excel 中两列数据相减，新插入一列，写入相减结果

excel 中两列数据相减，新插入一列，写入相减结果。上述功能，用vb 怎么编写代码啊？ --------------------编程问答--------------------

with thisworkbook.sheets(sheet)//操作的工作表sheet表示頁數

//假設A列減B列插入C列

  ki = range("A65536").end(xlup).row//--這裡表示在A列有數據部份的行數



  columns("B:C").select

    selection.insert shift:=xlToRight//插入列



  for i=1 to ki

    .cells(i,3)=CDBL(.cells(i,1))-CDBL(.cells(i,2))//轉為小數格式相減

  next i

--------------------编程问答-------------------- 直接在excel里写个宏不是更加方便么. --------------------编程问答--------------------
最好是在 Excel 中插入宏，在新的列里逐单元格写入公式，而不是具体的数字。

补充：VB ,  VBA