Copy multiple sections using VBA getting Run Time error 450

[Parzival]

Hello,
I can't figure out why i'm getting a run time error here.

This works just fine

lastrow = Cells(Rows.Count, "A").End(xlUp).RowActiveSheet.Range("AQ4:AZ" & lastrow, "BR4:CR" & lastrow).Copy

But for some reason when I add three ranges (example below) it gives me the run time error 450
"Wrong number of arguments or invalid property assignment"

ActiveSheet.Range("M4:V" & lastrow, "AQ4:AZ" & lastrow, "BR4:CR" & lastrow).Copy

Any help with this issue will be greatly appreciated!

 

[Fluff]

If you want to copy 3 different ranges try

ActiveSheet.Range("M4:V" & lastrow & ",AQ4:AZ" & lastrow & ",BR4:CR" & lastrow).Copy

 

[Parzival]

Thank you so much! I don't know why it allows two sections, but requires putting some of the code into the text in order to allow more but it worked. I was able to get all 5 of my sections added using your method!

Thanks again!

 

[Fluff]

Glad to help & thanks for the feedback.

FYI this line of code

ActiveSheet.Range("AQ4:AZ" & lastrow, "BR4:CR" & lastrow).Copy

will actually copy AQ4:CR & lastrow, rather than AQ:AZ & BR:CR