title: Copy and Paste a set range in the next empty row
body: <p>This should be simple but I am having a tough time.. I want to copy the cells A3 through E3, and paste them into the next empty row on a different worksheet. I have used this code before in longer strings of code.. but i had to tweak it and it is not working this time.  I get a "application-defined or object-defined error" when i run the code seen below.  All help is appreciated.</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Dim lastrow As Long
  
  lastrow = Range("A65536").End(xlUp).row
     Range("A3:E3").Copy Destination:=Sheets("Summary Info").Range("A:A" &amp; lastrow)
  End Sub
  </code></pre>