Insert

插入单元格。在插入单元格时，可以设置单元格的移动方向。如：

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Range("A10") \'以这个指定的单元格为基准
Rg.Insert(MSExcel.XlDirection.xlToRight)  \'将相应的单元格右移
App.Visible = True

其中，插入单元格的移动方向为XlDirection枚举，可为以下值之一：

xlUp：向上
xlToRight：向右
xlToLeft：向左
xlDown：向下

上面是从帮助文件复制的，红字部分的两个枚举好像不存在。也不知是不是我搞错了，说出来大家帮忙看看。