Excel: Pegar datos con bucle

[mrocf]

Hola! STDSTC.
Otra alternativa pero sin utilizar la información del rango I5:I15 de la hoja "Creador":

Código:

Sub Prueba3()
  Application.ScreenUpdating = False
  Rangos = Array("A", "B", "C")
For ii = 0 To 2
  With Sheets("Rol").Range(Rangos(ii) & "1:" & Rangos(ii) & "11")
    .Formula = "=RAND()": .Copy: .PasteSpecial xlPasteValues
  End With
Next ii
  Application.ScreenUpdating = True
End Sub

Saludos, Cacho.