I'd like to have more than one dynamic range copied on top of each other

[blodesbaum]

Hey! So as the title explains, I have some sheets with different dynamic ranges, which I'd like to copy into one sheet. Here's the code I have so far:

Workbooks("220312_Workplan_PP_AP.xlsm").Worksheets("Workplan").Range("C6:D2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("A5")
  
Workbooks("220312_Workplan_PP_CM.xlsm").Worksheets("Workplan").Range("C6:D2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("A5")

Workbooks("220312_Workplan_PP_LA.xlsm").Worksheets("Workplan").Range("C6:D2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("A5")

Workbooks("220312_Workplan_PP_AP.xlsm").Worksheets("Workplan").Range("E6:F2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("C5")
  
Workbooks("220312_Workplan_PP_CM.xlsm").Worksheets("Workplan").Range("E6:F2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("C5")
  
Workbooks("220312_Workplan_PP_LA.xlsm").Worksheets("Workplan").Range("E6:F2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("C5")
  
Workbooks("220312_Workplan_PP_AP.xlsm").Worksheets("Workplan").Range("H6:I2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("E5")
  
Workbooks("220312_Workplan_PP_CM.xlsm").Worksheets("Workplan").Range("H6:I2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("E5")
  
Workbooks("220312_Workplan_PP_LA.xlsm").Worksheets("Workplan").Range("H6:I2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("E5")

Now I realise that the last range over-writes the first one. My question is, how can I copy them back to back? Also, I'd insist on keeping the code as much as possible the way it is.

Thanks a lot for your help!

 

[bebo021999]

See first 3 rows, all 3 copies from different sources /paste in to same range "A5". It mean the very last copy remains.

Workbooks("220312_Workplan_PP_LA.xlsm").Worksheets("Workplan").Range("C6:D2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("A5")

Similar situation to next 2 sets of 3 of copy/paste.

 

[Fluff]

Hi & welcome to MrExcel.
Not entirely sure what you mean by

how can I copy them back to back?

But if you want to copy the ranges, one below another try

Workbooks("220312_Workplan_PP_CM.xlsm").Worksheets("Workplan").Range("C6:D2000").Copy _
  Workbooks("MO_LD.xlsm").Worksheets("MO").Range("A" & Rows.count).End(xlUp).Offset(1)