Trouble using button with macro to copy, paste & delete multiple selected cells

I was able to create a macro and assign it to a button that would allow me to use the cursor to highlight a cell then click the button to have the values of that cell be copied, pasted into a different cell, then delete the value in the original cell. What I would like to be able to do is highlight multiple cells within the same column using the cursor, click the button, and have all highlighted cells be copied, pasted, and deleted. Here is the code that works for one cell.

Selection.Copy
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -2).Range("A1").Select
    Application.CutCopyMode = False
    Selection.ClearContents

Suggestions?