Losowanie całych wierszy bez powtórzeń

[Szunaj85]

Witam,
Problem dotyczy programu Excel.
Mam tu makro, które ma losować jakąś liczbę całych wierszy z większej puli. W zasadzie działa jedynym problemem jest to, że powtarza wyniki. Jak zmienić kod aby pozbyć się tego problemu?

Sub Losowanie()
Dim a&, i&
Randomize
a = InputBox("Podaj liczbę")
For i = 1 To a
x = Int(1 + 50 * Rnd)
Worksheets("Arkusz2").Range("A" & i & ":G" & i).Value = Range("A" & x & ":G" & x).Value
Next i
End Sub