切换并插入带有移位VBA的焊膏

Question

我正在处理此电子表格以进行工作，我需要将项目移至右侧。我正在尝试找出正确的措辞组合，以便在 VBA 中cut和insert cut cells。我在单独的工作表中有类似的代码。我需要指定更多吗？

移位线是发生错误的地方。

    ' switch Macro

Columns("B:B").Select
Selection.Cut
Columns("A:A").Select
Selection.Insert Shift:=xlToRight

End Sub