How to select ranges from multiple rows

[iand5]

I want to copy the same thing into different rows in Excel. How can I simplify the code below so I can select multiple ranges?

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B47:G47").Select
ActiveSheet.Paste

Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B48:G48").Select
ActiveSheet.Paste</code>

 

[Rick Rothstein]

I want to copy the same thing into different rows in Excel. How can I simplify the code below so I can select multiple ranges?

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B47:G47").Select
ActiveSheet.Paste

Windows("Schedule.xlsx").Activate
Sheets("QF.IPP").Select
Range("E10:K10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ID_DOG.xlsm").Activate
Range("B48:G48").Select
ActiveSheet.Paste</code>

What is the name of the sheet in ID_DOG.xlsm that those ranges are on?

 

[iand5]

I did something somewhat similar.

Workbooks("Schedule.xlsx").Sheets("QF.IPP").Range("E10:K10").Copy
    Workbooks("ID_DOG.xlsm").ActiveSheet.Range("B30:H53").PasteSpecial

 

[Rick Rothstein]

I did something somewhat similar.

Workbooks("Schedule.xlsx").Sheets("QF.IPP").Range("E10:K10").Copy
    Workbooks("ID_DOG.xlsm").ActiveSheet.Range("B30:H53").PasteSpecial

If you are writing to the ActiveSheet in ID_DOG.xlsm, then I think this should work...

With Windows("Schedule.xlsx").Sheets("QF.IPP").Range("E10:K10")
  .Copy Windows("ID_DOG.xlsm").ActiveSheet.Range("B47:G47")
  .Copy Windows("ID_DOG.xlsm").ActiveSheet.Range("B48:G48")
End With

 

[iand5]

Worked great. Thanks