Random ohne doppelte Zahlen

Wie muß ich meinen Code anpassen, damit keine Dopplte Zufallszahlen kommen. Das es hier um eine Startnummernvergabe geht.

Sub zufall()
Dim Wert1
Randomize ' Zufallszahlengenerator initialisieren.
x = 0
Do
Wert1 = Int((6 * Rnd) + 1) ' Zufallszahlen im Bereich von 1 bis 6
x = x + 1
Cells(x, 1) = Wert1
Loop Until x = 6 ' diese 6 wird im Orginal gänder durch eine
Variable, die vorher berchnet wird wieviele Läufer an den Start
gehen!
End Sub

Gruß

Willie