Try using the Offset property. Below is a simple example that copies
3 colums to the same sheet with an offset of 4 columns. Hope it
helps.

Sub Copy3Cols()
For RowOffset = 0 To 100
For ColOffset = 0 To 2
Worksheets("Sheet1").Range("A1") _
.Offset(RowOffset, ColOffset + 4) = _
Worksheets("Sheet1").Range("A1") _
.Offset(RowOffset, ColOffset)
Next
Next
End Sub