|Your first question is relatively simple compared to your second. This code will Cut the currently ActiveCell and Paste it 6 columns to the right in the same row.|
Destination:=Cells(ActiveCell.Row, ActiveCell.Column + 6)
Your second question is a bit more complicated.
You say you want the "ActiveCell" moved to a cell which the user will click. Well, guess what happens when that cell is Clicked? It instantly becomes the ActiveCell and all knowledge of the previously ActiveCell is lost.
While there is a way to capture the Click event and run VBA code when the Click happens, the code is not going to know which cell was Active before the next cell was clicked. In other words, let's say the ActiveCell is A1. When you click in B1 and the code fires, the VBA is going to pick up B1 as the ActiveCell and not know anything about A1.
Perhaps you need to rethink your second requirement. I don't think you can do it automatically. I think you are going to need some kind of InputBox asking the user to click to Source cell so the code can capture the address.
For example, with code below the user can DoubleClick the Destination cell to get the InputBox to appear, asking him to select the cell that he wants moved. That will capture the address of the "source cell" so that it can be moved when the user clicks OK.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Cancelled
Set srcCell = Application.InputBox( _
"Please select the Data to be moved", Type:=8)
Cancel = True
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.