VBA将一系列单元格（带有公式）粘贴到另一列和另一列

Question

希望有一个朋友能帮助您。在此先感谢：）

所以我有一个看起来像这样的表： worksheet prior。它是一个表，表中的日期标题为B1：M1，公司名称为A2：A11。 A1只是空白。

我已经在B2：B11中具有值。当我运行这段代码时：

Range("B2").Select
Selection.Copy
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy

Dim lastRow As Long
lastRow = Range("B" & Rows.Count).End(xlUp).Row
Range("C2").AutoFill Destination:=Range("C2:C" & lastRow)

结果是在C3：C11中具有值（与B2：B11基本相同），这正是我想要的。 worksheet after

但是我不知道如何在D2：D11 ..直到M2：M11中执行相同的过程。该列每隔一周更改一次。

附加说明：“值”是一个查找公式irl。

非常感谢！ <3