Arrange Numbers 1 To 11 Row Wise Randomly With No Repetition

Arranging row wise an array of numbers from 1to 11 randomly with no repetition. I need it for 700 rows.

Sub test()
Dim a1(1 To 11, 1 To 2) As Double, a2(1 To 11, 1 To 2) As Double, a3(1 To 11, 1 To 2) As Double
Dim a4(1 To 11, 1 To 2) As Double, a5(1 To 11, 1 To 2) As Double, a6(1 To 11, 1 To 2) As Double
Dim a7(1 To 11, 1 To 2) As Double, a8(1 To 11, 1 To 2) As Double, a9(1 To 11, 1 To 2) As Double
Dim a10(1 To 11, 1 To 2) As Double, a11(1 To 11, 1 To 2) As Double, i As Integer
Randomize

[Code] .....