粘贴值不起作用？

Question

我有一个宏可以自动移动＆＃39; 4列数据。它通过插入3列，然后将数据从原始3复制到新3中来实现。原始值是从公式派生的，我想使用粘贴值函数仅粘贴没有公式的值。问题是它不断粘贴公式。

我的代码的相关部分在这里：

Sheets("Month over Month").Select
Columns("B:E").Select
Range("B2").Activate
Selection.Copy
Columns("F:F").Select
Range("F2").Activate
Selection.Insert Shift:=xlToRight
Range("B3:C54").Select
Application.CutCopyMode = False
Selection.Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False

奇怪的是，列B和C粘贴为值，但​​列D不粘贴（E为空白）。每个公式都是：

         B          C          D
1 =Summary!B2    =B3/$B$55   =SUM(B6:B9)

在新列中，单元格C的内容将作为公式粘贴。