Excel: Pegar datos con bucle

[mrocf]

Realmente no se entiende por qué deseas basarte en el contenido del rango I5:I15 como si ello tuviese algún tipo de significado o importancia...
Diría que no estás entendiendo el funcionamiento de la función ALEATORIO() (ó RAND() en inglés).

De modo que te dejaré el código que necesitas y te propongo que te pongas a investigar el tema con profundidad para que adviertas que estás aplicando -lo que se denomina- un pensamiento muy estructurado: ello no es siempre útil a la hora de programar:

Código:

Sub Prueba4()
  With Sheets("Rol").[A1:J22]
    .Formula = "=RAND()": .Copy: .PasteSpecial xlPasteValues
  End With
End Sub

Saludos, Cacho.

P.D.:
Desestructurar el pensamiento implica plantearte: 1º) cual es tu objetivo; 2º) cuales son tus alternativas; 3º) decidir cual es la mejor.

En este caso, me parece que estás partiendo de una única alternativa (que -encima- no es la mejor) y quieres buscar optimizarla: ojala se entienda esta sugerencia.