Excel: Pegar datos con bucle

[mrocf]

Hola! STDSTC. Puedes hacerlo de varios modos.
El siguiente código realiza lo mismo que el tuyo... pero sin moverse de la hoja "Creador":

Código:

Sub Prueba2()
  Application.ScreenUpdating = False
  Rangos = Array("A1", "B1", "C1")
For ii = 0 To 2
  Calculate
  Range("I5:I15").Copy
  Sheets("Rol").Range(Rangos(ii)).PasteSpecial Paste:=xlPasteValues
Next ii
  Application.ScreenUpdating = True
End Sub

Tienes varias cosas que mirar:
a) ScreenUpdating.
b) Array.
c) "Calculate" NUNCA fue necesario, realmente.

etc. etc. etc.

Saludos, Cacho.