数据透视表的宏问题

lrnanfayer

ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Select
    ActiveCell.FormulaR1C1 = "Due Month"
（以上一段想表达的意思是在J列之后插入一列，并在J1C1填写“Due Month”。可是我必须在选择H列的情况下，才能达到这个目的，不知道怎么修改）
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],6)"
    Selection.AutoFill Destination:=ActiveCell.Range("A1:A9560")
    ActiveCell.Range("A1:A9560").Select
    ActiveCell.Cells.Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ThisWorkBook!R1C1:R65536C49", Version:=xlPivotTableVersion10).CreatePivotTable _
（这里的文件名，想用当前打开的文件，基本上每次的名字是不一样的，不知道怎么写了）
        TableDestination:="", TableName:="数据透视表4", DefaultVersion:= _
        xlPivotTableVersion10

感谢指教！