Copy data from every nth column into another spreadsheet

Maybe you can simplify this to:

Sub DataTransfer()
Dim iRow, iCol
For iRow = 2 To 49
    For iCol = 1 To 63 Step 6
        Sheets("Sheet11").Cells(Range("I" & Rows.Count).End(xlUp).Row + 1, 9).Value = Sheets("Sheet12").Cells(iRow, iCol).Value
    Next
Next
End Sub