title: Summation of two rows and paste it to another workbook in one column
body: <p>Hello I have an issue with the summation of 2 rows and paste it to another workbook in a column. </p>
  
  <p>meaning lets say </p>
  
  <ul>
  <li>row 26,column 3 adding row 27,column 3 value</li>
  <li>row 26,column 4 adding row 27,column 4 value</li>
  <li><p>and so on until column 12</p></li>
  <li><p>3 4 5 6 7 row</p></li>
  <li><p>2 6 7 8 9 row</p></li>
  <li><p>column</p></li>
  <li>5</li>
  <li>10</li>
  <li>12</li>
  <li>14</li>
  <li>16</li>
  </ul>
  
  <p>I've tried separating the x source range summing up and trying pasting over but it could not work.</p>
  
  <p>It says </p>
  
  <blockquote>
    <p>run-time error '13':type mismatch </p>
  </blockquote>
  
  <p>This is my code:</p>
  
  <pre><code>Sub transfer()
  Dim x As Workbook
  Dim y As Workbook
  Dim sourceRange As Excel.Range
  Dim targetRange As Excel.Range
  
  
  
  '## Open both workbooks first:
  
  Set x = Workbooks("Svc-Op KPI Overall-6c.xlsm")
  
  Set y = Workbooks("SEA Aftermarket Dashboard - Civic - Copy.xlsm")
  
  
   Set sourceRange = x.Sheets("Monthly").Range(Cells(26, 3), Cells(26, 14)) + x.Sheets("Monthly").Range(Cells(27, 3), Cells(27, 14))
  
   Set targetRange = y.Sheets("Data").Cells(38, 3)
    targetRange.PasteSpecial Paste:=xlPasteValues,Operation:=xlNone,SkipBlanks:=False, Transpose:=True
  </code></pre>