VBA对于Excel来插入一个新列并用文本CKDUP填充但它不起作用

Question

我正在尝试做一个简单的类型并填写一个vba代码，但它不起作用。可以通过它指导我，我是Excel上的VBA新手。

向下填充应该等于它旁边的列的长度。

当我手动操作时，它正在工作。

这是代码

   Sub Macro7()
'
' Macro7 Macro
'

'
    Columns("B:B").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "(ck dup)"
    Selection.FillDown
End Sub