Solved: Split 2 Column to 2 columns with 85 record

[parscon]

I have sheet with 2 Column and I have about 3200 Rows, now I want to split this 2 column to 85 record .

That mean C and D will be 85 Record, E and F will be 85 and etc. . .

Also I attached sample file.

Thanks for your help.

[mdmackillop]

Option Explicit
Sub SplitData()
Dim r As Range
Dim i As Long

Set r = Cells(1, 1)
For i = 1 To r.CurrentRegion.Rows.Count / 85
r.Offset(85 * i).Resize(85, 2).Cut Cells(1, 1 + (2 * i))
Next
End Sub

[parscon]

Thank you very much .