title: VBA copy selection range in loop
body: <p>I want to ask about loop in VBA. I have this VBA code:</p>
  
  <pre><code>Sub OpenCopyPaste()
  
  ' open the source workbook and select the source sheet
  Workbooks.Open Filename:="C:\Users\Adryan Permana\Downloads\Test\part8.xlsx"
  Sheets("Sheet1").Select
  ' copy the source range
  Sheets("Sheet1").Range("C2:E2,C3:E3,C4:E4,C5:E5,C6:E6,C7:E7,C8:E8,C9:E9").Select
  Selection.Copy
  
  ' select current workbook and paste the values starting at A1
  Windows("report.xlsx").Activate
  Sheets("Sheet1").Select
  Sheets("Sheet1").Range("C3").Select
  ActiveSheet.Paste
  Application.CutCopyMode = False
  ActiveWorkbook.Save
  
  End Sub
  </code></pre>
  
  <p>I want to select all data in range "C2:E2" to "C9:E9" and paste it to other workbook. </p>
  
  <p>In my current code, I need to type one by one range from C2 - C9.
  I want to select data from C2-C9 in loop.</p>
  
  <p>Is there any way to do it in loop? </p>