将列移动到左侧

嘿家伙，我只是有一个关于使用VBA将列移动到左边的快速问题。 我将列25移动到A1，这工作正常，但它正在取代列1.如何重写此代码，以便我移动的列不会replace我移动它的列？ 谢谢。

这是迄今为止的代码。 我基本上希望A1中的每一列都向右移动，这样除了我正在移动的列外，什么都不会被删除。

Sub Move_Column_Left() Columns(25).Cut Range("A1") Columns(25).Delete Shift:=xlToLeft End Sub 

Answer 1

 Columns(25).Cut Columns(1).Insert Shift:=xlToRight