title: Copy Data from one worksheet on another
body: <p>I'm attempting to copy data from one workbook to another. After some browsing on the internet this is the code i found and it produces a run-time error 1004</p>
  
  <pre><code>Sub Name_Transfer()
  Dim wbSource As Workbook
  Dim wbDestination As Workbook
  
  'open the source workbook and select the source sheet
  Set wbSource = Workbooks.Open( _
      Filename:="C:\TestFolder\2013 Cockpit Chart.xls")
  
  'Set the destition workbook variable
  Set wbDestination = Workbooks("U:\my documents\ATM Platform 2013\Advanced Team Management.xlsm")
  
  'copy the source range
  wbSource.Sheets("Sheet1").Range("A2:B4").Copy
  
  'paste the value at E9
  wbDestination.Sheets("DataStore").Range("A4:B6").Value = _
  wbSource.Sheets("Sheet1").Range("A2:B4").Value
  
  Application.CutCopyMode = False
  
  ActiveWorkbook.Save
  
  End Sub
  </code></pre>
  
  <p>What is causing the 1004 error? Can it be fixed? or is there a far better way to be doing this?</p>