Macro to change column contents to 'values'

I pretty much used the record feature to do this macro. This macro just copies and pastes contents as 'values' in that column. When you record a macro, excel will use the hard cell/range address (A1:A5 for example). So we need to step into the code to change it to active cell.

Sub pastecolumntovalues()
ActiveCell.Select
ActiveSheet.range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
ActiveSheet.PasteApplication.CutCopyMode = False
End Sub