title: Loop through range, once value is found, copy cell value and everything under and move to next column
body: <p>This is my first post. I've been trying to teach myself excel VBA and it has been quite challenging.</p>
  
  <p>Anyways I have been working on loops and ranges etc etc.</p>
  
  <p>Here's my dilemma:</p>
  
  <pre><code>Option Explicit
  
  Sub Move_Data()
  
  Dim i As Long
  Dim j As Long
  Dim LastRow As Long
  Dim LastColumn As Long
  Dim rng As Range
  Dim result As String
  
  result = "New Results"
  
  LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
  LastColumn = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
  
  For i = 3 To LastRow
  For j = 1 To LastColumn
  
  
  If Cells(i, 1) = result Then
      j = j + 1
      Cells(i, 1).Copy Destination:=ActiveSheet.Cells(i, j)
  
  End If
  
  
  Next j
  Next i
  
  End Sub
  </code></pre>
  
  <p>Little by little I have put the above together. Here's my question:</p>
  
  <p>I am trying to look at all the values in column "A". Once "New Results" is found I want to copy not only this cell, but everything underneath it, to a column "J". Then find the string in column "B" and copy the range to column "K", etc.</p>
  
  <p>So far the code finds "New Results" and moves it to column "B" which is expected since is the only code I have written. How can add another loop that will copy everything under "New Results" along with it and move it over to the new column. This way J will keep increasing and eventually I will have all the results broken down by columns. </p>
  
  <p>Hopefully this makes sense.</p>
  
  <p>Thanks all,</p>