Try this
Sub Test()
    Columns("E:E").Copy: Columns("E:E").PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub