Copying multiple ranges

[Buster^]

Hey, I have a spreadsheet where i want to be able to copy multiple ranges at one time (like holding ctrl down when you copy normally) with VBA, here are the following ranges:

B1:F12

B14:Cells(15, 3 + Range("G1"))

B18:F27

B29:Cells(31,3+Range("G1"))

B34:F45

B49:H49

Can anyone help me making the code, I think it is not that hard to do, but I have never done it before so...

[Leith Ross]

Hello Buster^,

    Set Rng1 = Range("B14", Cells(15, 3 + Range("G1"))
    Set Rng2 = Range("B29", Cells(31, 3 + Range("G1"))
    Set Rng3 = Union( Range("B1:F12, B18:F27, B34:F45, B49:H49"), Rng1, Rng2)

    Rng3.Copy

[Buster^]

Thanks for helping me, but I am getting a runtime 1004 error:"can not execute this command on multiple samples simultaneously", the debugging is marking the rng3.copy