title: VBA loop to copy & paste range of specific columns to another workbook multiple times
body: <p>I am trying to figure out the quickest <strong>Loop</strong> method to copy a range of columns ("A16:J1338") from a source workbook, to a specific column (C1) of a specific workbook, 10 times. I would like to that macro to paste the data below the last available blank cell (under COL C) </p>
  
  <p>Here's my code;</p>
  
  <pre><code>Sub copy_Loop()
  Dim LastRow As Long
  Range("A16:J1338").Select
  Selection.Copy
  Workbooks.Open "C:\Users\Manzurfa\Desktop\1. Forecast Amalgamation.xlsx"
  Range("C1").Select
  ActiveSheet.Paste
  Windows("Merrell CA Forecast Template - Alain Travers.xlsm").Activate
  Range("K18:O1338").Select
  Selection.Copy
  Windows("1. Forecast Amalgamation.xlsx").Activate
  Range("K3").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Windows("Merrell CA Forecast Template - Alain Travers.xlsm").Activate
  Range("A16:J1338").Select
  Selection.Copy
   Windows("1. Forecast Amalgamation.xlsx").Activate     
  Range("B1").Select
  Selection.End(xlDown).Select
  ActivCell.Offset(0, 1).Select
  Selection.End(xlUp).Select
  ActivCell.Offset(1, 0).Select
  ActiveSheet.Paste
  
  ActiveWorkbook.Save
  End Sub
  </code></pre>
  
  <p>The columns ("A16:J1338") have blank rows in between and I would like the macro to overlook the blanks and loop the copy-paste under the last available blank cell. </p>
  
  <p>I would be very grateful for any help on this.</p>