Try the following code in a standard module:-
Application.ScreenUpdating = False
Dim NextCol As Long
NextCol = Sheet1.Cells(6, Columns.Count).End(xlToLeft).Column + 1
Sheet1.Range("P6:P15").Copy Sheet1.Cells(6, NextCol)
Application.CutCopyMode = False
Application.ScreenUpdating = True
The code assumes that the range is fixed at "P6:P15" and is hence not dynamic.
Following is a link to my test work book for you to peruse. Click on the button to see it work:-
I hope that this helps.