Hi
Not quiote sure if this is what you mean but try

Sub tester()
With Selection
.Copy Destination:=.Offset(0, 1)
.Offset(0, 1).Select
End With
End Sub

This will copy the selected range one column to the right, then select
that range. As you keep clicking the button further copies will be
copied to the right and so on.

regards
Paul