title: Change value on specific column when condition is met on another column
body: <p><a href="https://i.stack.imgur.com/ME66H.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/ME66H.jpg" alt="enter image description here"></a></p>
  
  <p>I need help regarding the screenshot above. If possible I want a vba code that starts checking in F2 cell in row F(Unit Price) and change the adjacent values of row H and I to "01/01/2010" if the value on unit price is 0 and loop until an empty cell. Thanks in advance.</p>
  
  <pre><code>Range("F1").Select
  ActiveSheet.Range("$A$1:$AI$9036").AutoFilter Field:=6, Criteria1:="0"
  Range("H3").Select
  ActiveCell.FormulaR1C1 = "1/1/2010"
  Selection.AutoFill Destination:=Range("H3:I3"), Type:=xlFillCopy
  Range("H3:I3").Select
  Selection.FillDown
  ActiveSheet.Range("$A$1:$AI$9036").AutoFilter Field:=6
  </code></pre>
  
  <p>Tried this one but the value doesnt change</p>
  
  <pre><code> Sub test()
   irow = 2
   Do
   If (Sheets("Prices").Cells(6, 1).Value = 0) Then Cells(8, 1).Value = "01/01/2010"
   irow = irow + 1
   Loop Until IsEmpty(Sheets("Prices").Cells(irow, 6))
   End Sub
  </code></pre>