title: macro to find specific text in row and copy to cell in same row
body: <p>I have a workbook and what i am trying to do is find the word "holiday" in a row between B and G and place the word "holiday" in a cell in the same row in column A, I've attached a pic of the sheet, I need to ignore the cells that contain "Rest" and just put "holiday" in cells that contain "Yes"</p>
  
  <p><a href="https://i.stack.imgur.com/48WhG.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/48WhG.jpg" alt="Holiday Planner"></a></p>
  
  <pre><code>Sub dural()
      Dim AB As Range, r As Range, K As Long
       Set AB = Range("B:G").Cells.SpecialCells(xlCellTypeConstants)
      K = 1
          For Each r In AB
          If InStr(1, r.Value, "holiday") &gt; 0 Then
          r.Copy Cells(K, "A")
          K = K + 1
      End If
      Next
  End Sub
  </code></pre>
  
  <p>I found this code elsewhere on the site but what it does is puts "holiday" in column A from row 1 down by the number of times it finds "holiday"</p>
  
  <p>Can anyone help me out?</p>