[RESOLVED] Pastespecial xlPasteValues same column

[vbfbryce]

Try this:

Sub psvals()
    Range("i1").EntireColumn.Copy
    Range("i1").PasteSpecial xlPasteValues
End Sub