Set ranged cell value = to another range efficiently

Question

I\'m currently working with

Dim ptWS As Worksheet, roneWS As Worksheet, rtwoWS As Worksheet, rthreeWS As Worksheet, rfourWS As Worksheet

Set ptWS = ThisWorkb