Dobbeltgængere i tilfældig stikprøve

Hej folkens

Jeg skal udvælge en tilfældig stikprøve i en kolonne med data. Der er problemer med dobbeltgængere:


Dim VarData() As Integer
ReDim VarData(SampleSize)
Lowerbound = 300 'som ekspempel (sidste række, LastRow)
Upperbound = 16 '(øverste række)

For j = 1 To SampleSize

Randomize
RandomNo = Int((Lowerbound - Upperbound + 1) * Rnd + Upperbound)

If IsNumeric(Application.Match(RandomNo, VarData, 0))

Randomize
RandomNo = Int((Lowerbound - Upperbound + 1) * Rnd + Upperbound) 

End If
VarData(j) = RandomNo


RandomNo er en tilfældig linje i mit data, og i loopet (og i arrayet varData) optræder gengangere. Jeg forsøger at genberegne RandomNo, hvis RandomNo der er en genganger, men problemer er, at nogle gange, så bliver Rnd genberegnet til samme værdi, som i første linje, og så opstår der igen gengangere.

Kan I hjælpe med en modifikation eller en ny bedre kode til udvælgelse af en stikprøve?