title: How to copy and append cells content from a different workbook to an Activework?
body: <p>I have a macro that allows a user to browse and select multiple Excel files, after the user has selected the multiple Excel files, the content from multiple Excel files should be saved on the current active workbook, on one sheet. the content would be append one another.</p>
  
  <p>The problem is that when the loop runs for the second time it complains with the range, it says the range should start at "A1".</p>
  
  <p>here is my code below.</p>
  
  <pre><code>Sub Button3_Click()
  Dim fileStr As Variant
  Dim incount As Integer
  Dim wbk1 As Workbook, wbk2 As Workbook
  
  incount = 1
  
  fileStr = Application.GetOpenFilename(FileFilter:="microsoft excel files (*.xlsx), *.xlsx", Title:="Get File", MultiSelect:=True)
  
      For i = 1 To UBound(fileStr)
          MsgBox fileStr(i), , GetFileName(CStr(fileStr(i)))
          Set wbk1 = ActiveWorkbook
          Set wbk2 = Workbooks.Open(fileStr(i))
  
          wbk2.Sheets(1).Cells.Copy wbk1.Worksheets("Sheet3").Cells(incount, 1)
  
          incount = Range("A" &amp; Rows.Count).End(xlUp).Row
  
          wbk2.Close
      Next i
  
      MsgBox incount
  
  End Sub
  Function GetFileName(fileStr As String)
      Dim fso As Object
      Set fso = CreateObject("Scripting.FileSystemObject")
      GetFileName = fso.GetFileName(fileStr)
  
  End Function
  </code></pre>
  
  <p>Error message:</p>
  
  <pre><code>Run-time error '1004'
  
  To paste all cells from an Excel worksheet into the current worksheet,
  you must paste into the first cell(A1 or R1C1)
  </code></pre>