Shifting a selected range of cells to the right or left

[TimBlood]

I have a spreadsheet that needs to shift a selected range of cells one column to the right or left using an "Advance" or "Delay" button.

Here is the sequence of operation:

1. Activate a button
2. Select the cells beginning 2 spaces from the button's originating cell to 10 spaces from the button's originating cell
3. Shift those good for nothing cells either one cell to the right or left.

Here's the code I have thus far:

Sub
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Select
Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 10)).Select

End Sub

So, I have everything covered except for the shifting part...which is the most important part... Please, someone, help me!