VB - cálculo de 6 números

Fiz uma macro para calcular 6 números diferentes entre 1 e 49, conforme exemplo a seguir. Acontece que os números podem sair repetidos o que evito com uma fórmula no Excel.
Há alguma maneira de calcular os 6 números de uma só vez e não permitindo que sejam repetidos.
+++++++++++++++++++++++


Sub loto6nrs()

'Cálculo de 6 numeros

Dim MyValue
Randomize ' Initialize random-number generator.

'1º numero

MyValue = Int((49 * Rnd) + 1) ' Generate random value between 1 and 49.


Range("A2").Select
ActiveCell.FormulaR1C1 = MyValue

'++++++

'2º numero

MyValue = Int((49 * Rnd) + 1)


Range("A3").Select
ActiveCell.FormulaR1C1 = MyValue

'++++++

'3º numero

MyValue = Int((49 * Rnd) + 1)


Range("A4").Select
ActiveCell.FormulaR1C1 = MyValue


'++++++

'4º numero

MyValue = Int((49 * Rnd) + 1)


Range("A5").Select
ActiveCell.FormulaR1C1 = MyValue


'++++++

'5º numero

MyValue = Int((49 * Rnd) + 1)


Range("A6").Select
ActiveCell.FormulaR1C1 = MyValue

'++++++

'6º numero

MyValue = Int((49 * Rnd) + 1)


Range("A7").Select
ActiveCell.FormulaR1C1 = MyValue


End Sub

+++++++++