title: Copy cells between workbooks
body: <p>Could someone please help me with some VBA code.</p>
  
  <p>I am trying to copy 2 ranges of cells between workbooks (both workbooks should be created beforehand as i don't want the code to create a new workbook on the fly).</p>
  
  <p>Firstly I need to copy these ranges-
  From 'Sheet 3' of booka.xls,  Range: Cell H5 to the last row in column H with data
    copy this to 'Sheet 1' of bookb.xls, starting in Cell B2 for as many cells down in the B column</p>
  
  <p>Secondly I need to copy these ranges-
  From 'Sheet 3' of booka.xls,  Range: Cell K5 to the last row in column K with data
    copy this to 'Sheet 1' of bookb.xls, starting in Cell D2 for as many cells down in the D column</p>
  
  <p>Here is what I have so far:</p>
  
  <pre><code> Sub CopyDataBetweenBooks()
  
  Dim iRow        As Long
      Dim wksFr       As Worksheet
      Dim wksTo       As Worksheet
  
      wksFr = "C:\booka.xls"
      wksTo = "C:\bookb.xls"
  
      Set wksFrom = Workbooks(wksFr).Worksheets("Sheet 3")
      Set wksTo = Workbooks(wksTo).Worksheets("Sheet 1")
  
      With wksFrom
          For iRow = 1 To 100
              .Range(.Cells(iRow, 8), .Cells(iRow, 9)).Copy wksTo.Cells(iRow, 8)
          Next iRow
      End With
  
  End Sub
  </code></pre>