Veja se atende.

Sub seleciona()
'Declara um Array
Dim Nums(99) As Long
'Declara a range
Dim myRng As Range
Set myRng = Sheets("Plan1").Range("K3:T12")
'Atribuímos valores para o Array
x = 0
For Each cel In myRng
Nums(x) = cel.Value
x = x + 1
Next
Randomize
'Adiciona os valores nas celulas M15:Q15
For i = 13 To 17
Cells(15, i).Value = Nums(CInt(Rnd() * 99))
Next
End Sub

Boa tarde
Reinaldo, grato por ter respondido e funcionado 100% dentro dos parâmetros dados. Alterando os valores nas linhas para outros valores, o resultado ficou estranho.

Dim Nums(99) As Long "35"

Set myRng = Sheets("Plan1").Range("K3:T12") "K3:O6"

Cells(15, i).Value = Nums(CInt(Rnd() * 99)) "35"

Ou será que alterei errado?