title: Copy data from multiple files into one sheet with incremental rows.
body: <p>I'm using the following code to open one of multiple files, copy a line from a worksheet, and then paste it back into the first worksheet, then close the opened file.</p>
  
  <p>My problem is I can't get past the function to move down the rows each time it pastes. I want it to incrementally paste the values on the new row, ie. <code>B3</code>, then <code>B4</code>, then <code>B5</code>, etc.</p>
  
  <pre><code>Sub Auto_open_change()
      Dim WrkBook As Workbook
      Dim StrFileName As String
      Dim FileLocnStr As String
      Dim LAARNmeWrkbk As String
  
      PERNmeWrkbk = ThisWorkbook.Name
  
      FileLocnStr = "T:\Projects\data" 'ThisWorkbook.Path
  
      Dim StrFile As String
      StrFile = Dir(FileLocnStr &amp; "\*.xls")
      Do While Len(StrFile) &gt; 0
          DoStuff (FileLocnStr &amp; "\" &amp; StrFile)
          StrFile = Dir
      Loop
  End Sub
  
  Private Sub DoStuff(StrFileName)
      Workbooks.Open (StrFileName)
      Call Edit
      Workbooks.Open (StrFileName)
      ActiveWorkbook.Close
  End Sub
  
  Sub Edit()
      Dim Wb1 As Workbook
      Dim ws1 As Worksheet
      Dim loopcal As Long
      With Application
          .ScreenUpdating = False
          .EnableEvents = False
          lngCalc = .Calculation
      End With
  
      Set Wb1 = ActiveWorkbook
      Sheets("1_3 Octave1 CH1").Select
      Range("A3:AH3").Select
      Selection.Copy
  
      Windows("template.xlsm").Activate
      Sheets("Data Extract").Select
      Range("B3").Select
  
      Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  End Sub
  </code></pre>