title: ActiveSheet.Paste Failing VBA Excel
body: <p>My VBA code is set to copy a value from one sheet (NB this value will change each time the sheet is open) and paste into a 'database' on the next available row.</p>
  
  <p>Think I've got it right but the Paste method seems to fail, can anyone see why?</p>
  
  <pre><code>Windows("Invoice Program.xlsm").Activate
  Range("B4").Select
  Application.CutCopyMode = False
  Selection.Copy
  Workbooks.Open ("C:\Users\Invoice Database.xlsx")
  Windows("Invoice Database.xlsx").Activate
  Range("A" &amp; Rows.Count).End(xlUp).Offset(1).Select
  Selection.Paste
  </code></pre>