code not looping.

[orsm6]

hi all - i thought this code would loop through the range and put a formula in every box ... but it doesn't. how can it be changed to make it loop?

    With Range("E2:E100").Find("Z004").Offset(0, 10)
        .Value = "=((K3*M3)/N3)"
    End With

if it is possible, can the code just loo for Z00 rather than Z004.... i could use that to fill the rest of the column rather than have separate codes for each....

thank you

 

[orsm6]

It occurs to me that what you might want is to put the formula in column O in every row where column E contains any value.
If so, the code can be much simpler :

Sub enterformula()
Range("O3:O" & Cells(Rows.Count, "E").End(3).Row) _
    .SpecialCells(xlCellTypeConstants).FormulaR1C1 = "=RC[-4]*RC[-2]/RC[-1]"
End Sub

the first code you sent looks like what i was after... check col E for any of those values, if so, enter the formula.