I want to check the value in column M for each row and possibly change
the value in column F. Here's what I've written that works:

Sub test()
i = 2
Do Until i = 100
If Range("M:M").Cells(i).Text = "H" Then Range("F:F").Cells(i)
= "H"
i = i + 1
Loop
End Sub

Is there a better way to code this? Thanks for any help.