Moving selection using offset

[Forestq]

Example:
I have selected columns (B10:B15). Now I want to move all content to C11:C16 (1 cell right, 1 cell down).
I now how to cut the section.

Dim wbp As Workbook
Dim ws1 As Worksheet
Set wbp = ActiveWorkbook
Set ws1 = wbp.Worksheets("test")

Selection.Cut

How to paste to destination using Offset?

 

[S_Wish]

ActiveSheet.Paste Destination:=Selection.Offset(1, 1)

 

[Forestq]

thanks!