¿Macro copiar fórmulas y pegar con Bucle?

Hola a quien pueda ayudarme, tengo una macro que en función de la ultima celda de la columna R Copia el rango p12: aa12 y lo pega hasta la ultima celda que resulte del calculo de la ultima celda de R, Tengo esta macro que pegue más abajo que me ayuda a hacerlo, pero resulta que como son muchos datos da error al querer pegar por ser demasiados datos, entonces probé de hacer rangos con menos columnas y esto funciona hasta que nuevamente algún rango es demasiado Grande, Habrá alguna forma de hacerlo de otra manera, ¿por medio de un Bucle o Loop?
Desde ya, Muchas Gracias !
 Sub ESTIRAR_CALCULO_FINAL_COMISIONES()
Sheets("CALCULO FINAL COMISIONES").Select
ult = Range("r65536").End(xlUp).Row
Range("P12:R12").Select
Selection.Copy
Range(Cells(13, 16), Cells(ult, 16)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
Range("S12:X12").Select
Selection.Copy
Range(Cells(13, 19), Cells(ult, 19)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
Range("Y12:AA12").Select
Selection.Copy
Range(Cells(13, 25), Cells(ult, 25)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.End(xlDown).Select
End Sub