Loop with an unintentional offset

[cacahuatitaCH]

So, I found this looping code and adapted it a bit, pretty superficial changes.

It works well for the first instance, finds the text I asked it to, changes the next row... but after that, it keeps changing the text in the cell it finds the actual text its supposed to be looking for as a reference.

Could you help me find the mistake?

Sub Default_test()
   Dim Ary As Variant
   Dim i As Long
  
   Ary = Array("Actual Results", "BLANK")
   With ActiveSheet.Range("A5:F550")
      For i = 0 To UBound(Ary) Step 2
         .Replace Ary(i), "=" & Ary(i), xlWhole, , False, , False, False
         .SpecialCells(xlFormulas, xlErrors).Offset(1, 0).Value = Ary(i + 1)
         .Replace "=" & Ary(i), Ary(i), xlWhole, , False, , False, False
      Next i
   End With
  
 MsgBox "DONE!"
End Sub

 

[cacahuatitaCH]

In that case I don't know, do you have any other values in the array to replace, or just Actual results?

Only "Actual Results" to wok as a reference, to add text on the next row

 

[Fluff]

In that case you can get rid of the loop as it isn't doing anything

Sub Default_test()
   Dim Ary As Variant
  
   Ary = Array("Actual Results", "BLANK")
   With ActiveSheet.Range("A5:j550")
      .Replace Ary(0), "=" & Ary(0), xlWhole, , False, , False, False
      .SpecialCells(xlFormulas, xlErrors).Offset(1, 0).Value = Ary(1)
      .Replace "=" & Ary(0), Ary(0), xlWhole, , False, , False, False
   End With
  
 MsgBox "DONE!"
End Sub

Although this won't cure your problem.