VBA: Multiple ranges kopier?

Hej Alle sammen

Jeg har prøvet og kopiere multiple ranges på en gang på følgende måde:

Dim r1, r2, r3, r4, r5, r6, r7, r8, r9, myMultipleRange As Range
        Set r1 = Sheets("x").Range("J6:K6")
        Set r2 = Sheets("x").Range("C3")
        Set r3 = Sheets("x").Range("b6:b8")
        Set r4 = Sheets("x").Range("B10:B12")
        Set r5 = Sheets("x").Range("E5:E8")
        Set r6 = Sheets("x").Range("H6")
        Set r7 = Sheets("x").Range("J32:J42")
        Set r8 = Sheets("x").Range("C43")
        Set r9 = Sheets("x").Range("B15:B16")

  Set myMultipleRange = Union(r1, r2, r3, r4, r5, r6, r7, r8, r9)
    myMultipleRange.Copy

Det virker bare ikke :( Den reagerer på at jeg prøver og kopiere multiple ranges.

Er der nogen forslag til hvordan man kopiere en multiple range?