插入新列副本并粘贴整个列

Question

我有一个excel工作表，每列都有一个示例

Column E    Column F .....Column I
Sample 1    Sample 2      Total of samples

Formula     Formula 

我想创建一个宏，该宏将在上一个样本之后但在“ Total”列之前插入一个新列 然后将公式从上一列复制并粘贴到新插入的列中

我已经尝试过下面的代码，但是我对于如何复制和粘贴上一列中的公式有些困惑

我也尝试过'Record macro'函数，但是它不会为插入的新列调整'Total'列，有时会删除我复制的现有列来自

Sub InsertColumns()

'Insert Column to the right of Column F
    Columns("D:D").Insert Shift:=xlToleft, _
      CopyOrigin:=xlFormatFromrightOrAbove 'or xlFormatFromleftOrBelow

End Sub