title: Macro for copying from one excel sheet to another when one sheet has merged cells
body: <p>I have been working on this template in Excel 2013 for some time now.  I have used several different suggestions from here and other sites and still can't get this to work. 
  In the ideal world this would be a template that I print the first sheet from after entering my data, hit the macro button, and then it saves the certain cell data to the next sheet, named "log".  The data in the log will just compile over time, whereas the main sheet will be changed and then printed as a data sheet.</p>
  
  <p>For some reason using this code my data always ends up in the last row of the columns.  I am also having trouble getting it to keep adding data after running the macro the first time. I used names instead of cell ranges because I thought that may help excel deal with the merged cells that I am copying from. It also throws an error once the columns are populated on the log sheet.  Any advice would be great as I am not very well versed in vba!  If it would be easier to send these to a log from a Word template that would work for me as well but I thought it would be easier to work only within excel.</p>
  
  <p>Thanks!!!</p>
  
  <pre><code>Sub Paste()
  Dim LastRow As Long
  
  LastRow = Sheets("log").Range("A65536").End(xlUp).row + 1
  
  Sheets("Sheet").Range("ManufactureDate").Copy Destination:=Sheets("log").Range("A2" &amp; LastRow)
  Sheets("Sheet").Range("PartNumber").Copy Destination:=Sheets("log").Range("B2" &amp; LastRow)
  Sheets("Sheet").Range("SampleNumber").Copy Destination:=Sheets("log").Range("C2" &amp; LastRow)
  Sheets("Sheet").Range("ShiftNumber").Copy Destination:=Sheets("log").Range("D2" &amp; LastRow)
  Sheets("Sheet").Range("BatchNumber").Copy Destination:=Sheets("log").Range("E2" &amp; LastRow)
  Sheets("Sheet").Range("LineNumber").Copy Destination:=Sheets("log").Range("F2" &amp; LastRow)
  Sheets("Sheet").Range("AverageHardness").Copy Destination:=Sheets("log").Range("G2" &amp; LastRow)
  Sheets("Sheet").Range("TotalCompression").Copy Destination:=Sheets("log").Range("H2" &amp; LastRow)
  Sheets("Sheet").Range("Length").Copy Destination:=Sheets("log").Range("I2" &amp; LastRow)
  Sheets("Sheet").Range("PostWidth").Copy Destination:=Sheets("log").Range("J2" &amp; LastRow)
  Sheets("Sheet").Range("RailWidth").Copy Destination:=Sheets("log").Range("K2" &amp; LastRow)
  Sheets("Sheet").Range("TotalDepth").Copy Destination:=Sheets("log").Range("L2" &amp; LastRow)
  Sheets("Sheet").Range("Offset").Copy Destination:=Sheets("log").Range("M2" &amp; LastRow)
  
  End Sub
  </code></pre>