title: Using a For/Each Loop but Jumping Active Cell VBA
body: <p>So I am trying to write a For Each loop to look through an entire row. If it finds the word "Specialty" Copy it over to the next three cells. 
  It does this part fine, but then when it loops around, of course the next cell has "Specialty" in it bc it just copied it over. I need to figure out how to say, if you've found "Specialty" and copied it over, jump 4 cells over and begin searching  again..... Tried Offsetting the active cell but didn't work. 
  Any ideas? 
  Thanks!</p>
  
  <pre><code>Sub CopySpecialtyOver()
  
  Dim rngRow As Range
  Dim Cell As Range
  
  Set rngRow = Range("A8:BA8")
  
  For Each Cell In rngRow
      If InStr(1, Cell.Value, "Specialty") Then
      Cell.Offset(0, 1).Value = Cell.Value
      Cell.Offset(0, 2).Value = Cell.Value
      Cell.Offset(0, 3).Value = Cell.Value
  
      End If
  Next Cell
  End Sub
  </code></pre>