マクロでCopy&Pasteすると列に破線が残る

おはようございます。
いつもお世話になります。

OSはWin10 エクセルはOfiice365 です。

下記にマクロの記録で作成したコードですがE列に破線が残ります。
　※参照図を参考に
実害は無いのですがなんとなく落ち着きません。ただし上書き保存するとなくなります。

この破線を無くすことは可能でしょうか。
もし可能ならばご指導を仰ぎたいです。

参考　※Sheet5(顧客管理)
Sub 一時保存()
' Macro1 Macro
Range("E3:E60").Select
Selection.COPY
ActiveWindow.SmallScroll ToRight:=10
ActiveWindow.LargeScroll Down:=-1
Range("Y3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=-1
Range("A1").Select
End Sub

質問者からの補足コメント

• 

  アドバイスを反映したマクロを下記します。
  Sub Macro1()
  ' Macro1 Macro
  Range("E3:E60").Select
  Selection.COPY
  ActiveWindow.LargeScroll Down:=-1
  Range("Y3:Y60").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  ActiveWindow.LargeScroll Down:=-1
  Range("A1").Select
  Application.CutCopyMode = False
  End Sub
  解決しました。
  ありがとうございます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/04/11 08:14

No.1 ベストアンサー 回答者： goold-man 回答日時： 2021/04/11 06:51

ESCキーで解除する癖をつける。

この回答へのお礼

早速のご指導をありがとうございます。
たしかに破線は取り除かれます。

誠に勝手ですがもう少しスマートに解決する方法が無いでしょうか。

再指導頂けるととても嬉ししいです。
よろしくお願いいたします。

お礼日時：2021/04/11 07:22