You are not moving anything, the activecell is not changing (not that it
needs to)

Range("S2").Select
x = ActiveCell.Row
Do While Cells(x, 10).Value < ""
cells(x,19).FormulaR1C1 = _
"=IF(RC[-9]=""EVT2"",1,IF(RC[-9]=""EVT3"",2,9))"
x = x + 1
Loop

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
web: www.excelusergroup.org
web: www.nickhodge.co.uk





"iashorty" wrote in message
...
Put formula into col. S as long as same row in col J has something in it.

Range("S2").Select
x = ActiveCell.Row
Do While Cells(x, 10).Value < ""
ActiveCell.FormulaR1C1 = _
"=IF(RC[-9]=""EVT2"",1,IF(RC[-9]=""EVT3"",2,9))"
x = x + 1
Loop

End Sub

Why doesn't this move to the next row?