Simple copy paste vba

Hi this is probably really simple but I have vba like this:

Sub Test4()
    Sheets("Rota week 4").Select
    Range("E33:AR135").Select
    Selection.Copy
    Sheets("Rota").Select
    Range("E33").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E33").Select
End Sub

Which copies e33:ar135 from one sheet to another. However say I want to copy more than one range so E33:AR135 and E200:AR202 AND E300:AR301 for example how do copy and pastespecial each of the ranges in one go rather than writing out lots of copy and paste lines. Also if it could do it without physically going to the sheet it's copying that would be great.

Many thanks