title: Using column index, how to copy specific columns
body: <p>New day, new problem.
  I have received much help, and hope you can help me with this too. Have searched around for solutions to my problem but not found.</p>
  
  <p>Here is my code:</p>
  
  <pre><code>SearchString = "start"
      Set aCell = phaseRange.Find(What:=SearchString, LookIn:=xlValues, _
              LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
              MatchCase:=False, SearchFormat:=False)
  If Not aCell Is Nothing Then
      Set bCell = aCell
      ReDim Preserve arrStart(nS)
      arrStart(nS) = aCell.Row
      nS = nS + 1
      Do While ExitLoop = False
          Set aCell = phaseRange.FindNext(After:=aCell)
          If Not aCell Is Nothing Then
              If aCell.Row = bCell.Row Then Exit Do
              ReDim Preserve arrStart(nS)
              arrStart(nS) = aCell.Row
              nS = nS + 1
          Else
              ExitLoop = True
          End If
      Loop
  Else
  End If
  </code></pre>
  
  <p>And to write it out:</p>
  
  <pre><code>For i = 1 To nS - 1
          Sheets("DataSheet").Select
          Sheets("raw_list").Rows(arrStart(i)).Copy
          Cells(i, 1).Select
          ActiveSheet.Paste
  Next
  </code></pre>
  
  <p>As you see, I seek in a column for a String. When I get a result, row number is stored in an array. In the next code snippet, I write out hits in entire rows. Is it possible that instead of taking the entire row, choose which columns in that row you want to copy in a simple way?</p>
  
  <p>Grateful for assistance</p>