Simple copy paste vba

Maybe like this

Sub Test4()
   With Sheets("Rota week 4")
    Application.Union(.Range("E33:AR135"), .Range("E200:AR202"), .Range("E300:AR301")).Copy
   End with   
 Sheets("Rota").Select
    Range("E33").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E33").Select
End Sub