Range(ActiveCell, ActiveCell).Copy is used to copy the content of a single active cell and paste it to another location.
To use the Cut method instead of Copy, you would need to use a similar syntax, like this:
VBA Code:
Range(ActiveCell, ActiveCell).Cut Destination:=Range(ActiveCell, ActiveCell).Offset(1, 0)
You can also use the Cut method on the Value property of a cell, like this:
Code:
ActiveCell.Value.Cut Destination:=ActiveCell.Offset(1, 0)
Please note that, unlike the Copy method, the Cut method will remove the content from the source cell after it is pasted to the destination cell.
Also you can move the data in column A to column B:
Code:
For Each Cell In Range("A2:A33")
If Cell.Value <> "" Then
Cell.Value.Cut Destination:=Cell.Offset(0, 1)
End If
Next
This code loops through each cell in the range A2:A33. If the cell is not empty, it cuts the value and pastes it to the cell in the same row but in column B.