Cell's shuffling

Hello,
I have a file with near 1000 lines.
I need to shuffle cells.
But there is dependence.

Every two lines should be mixed in the same order.

For example I have a table:
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8
1-2-3-4-5-6-7-8

And on exit I need

2-5-7-4-6-8-1-3
2-5-7-4-6-8-1-3
5-6-3-1-2-7-8-4
5-6-3-1-2-7-8-4
3-8-1-2-7-6-4-5
3-8-1-2-7-6-4-5

I know how to mix cells randomly,

Sub test()

Rows(1).Insert
Range("A1").Resize(1, Cells(2, Columns.Count).End(xlToLeft).Column).Formula = "=RAND()"
Range("A1").CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, Orientation:=xlLeftToRight
Rows(1).Delete

End Sub

But how to do it in that case I don't know.

I will be very glad if someone help me.

Thank you for your answers.