如何在当前表册插入列时自动写复制前一列公式到插入列

wcj6376tcp

Sub Worksheet_Change(ByVal Target As Range)
判断是否插入列，如果有插入


就自动复制前一列公式到插入列

end Sub

wcj6376tcp

现有代码插入行可以自动复制公式，列如何写不会了
Sub Worksheet_Change(ByVal Target As Range)
Dim i, hy, px, hj As Integer
    If Target.Columns.Count = Columns.Count And Application.CountA(Target) = 0 Then
        For i = 2 To Columns.Count '获取列数
            If Cells(2, i) = "差旅费" Then
                cl = i                                             '获取列数
                Cells(Target.Row, cl).FormulaR1C1 = Cells(Target.Row - 1, cl).FormulaR1C1
            End If
            If Cells(2, i) = "会议费" Then
                hy = i                                             '获取列数
                Cells(Target.Row, hy).FormulaR1C1 = Cells(Target.Row - 1, hy).FormulaR1C1
            End If
            If Cells(2, i) = "培训费" Then
                px = i                                             '获取列数
                Cells(Target.Row, px).FormulaR1C1 = Cells(Target.Row - 1, px).FormulaR1C1
            End If
            If Cells(2, i) = "合计" Then
                hj = i                                             '获取列数
                Cells(Target.Row, hj).FormulaR1C1 = Cells(Target.Row - 1, hj).FormulaR1C1
            End If
        Next i
        On Error Resume Next
        Target(1).Offset(, 3).Resize(Target.rows.Count, ActiveSheet.UsedRange.Columns.Count).SpecialCells(xlCellTypeConstants, 1) = ""
    End If
end Sub  

wcj6376tcp

附件已上传，自己添加了一下列的结果问题太多。

wcj6376tcp

自己添加了列的结果互相触发了不晓得如何处理了，麻烦大神修改一下，谢谢，