title: copy and paste from csv file to excel file
body: <p>I modified a piece of code that opens a .csv file, copies a selected range and pastes it in a selected cell in an excel worksheet. </p>
  
  <p>I am having trouble selecting the next range in the .csv file to paste in the excel file. It only works for the first range (E2:E25). </p>
  
  <p>I want it to select the next range (B2:B25) from the .csv file, copy/paste, but it only selects from the excel file. How do I fix that? Thanks.</p>
  
  <pre><code>Option Explicit                               
  
  Sub copy2()
  Dim FilesToOpen
  Dim wkbAll As Workbook
  Dim wkbTemp As Workbook
  Dim newSheet As Worksheet
  FilesToOpen = Application.GetOpenFilename(Title:="Text Files to Open")
      Set wkbTemp = Workbooks.Open(Filename:=FilesToOpen, Format:=4)
      wkbTemp.Sheets(1).Cells.copy
      Range("E2:E25").Select
      Selection.copy
      Windows("Petty Cash Form (test).xls").Activate
      Range("H10").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
  
      Range("B2:B25").Select
      Selection.copy
      Windows("Petty Cash Form (test).xls").Activate
      Range("B10").Select
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  
      Application.CutCopyMode = False
      wkbTemp.Close
  
  End Sub
  </code></pre>