行はそのままで列のみをVBAコードで移動

アクティブセルがどの位置にあってもウインドウの行が変わらず列のみを移動できるでしょうか？ ちなみに下記コードではアクティブセルが行（2～20）にある場合、列と同時に行も上に移動します。 どなたかコードが解る方、宜しくお願いします。 Sub 列移動() Application.Goto reference:=Worksheets("sheet1").Range("E" & ActiveCell.Row), Scroll:=True End Sub