If cells contains...put in new cell...

[aj_bk]

Hi guys

I need help.

I have words and numbers in column A3:A500
and I need to change their names.
if a cell contains the word "previ" than put in a new column the letter "p" if the cells is a number. if its a word then dont put "p"
...like turning a flag on and off.

this is what i have:
sub()
for i=3 to 500

x= range("a:"&i).value
if x contains "previ" then
prevflag=1
eles if x is not integer then
prevflag=0
end if

if prevflag=1 then
range("H:"& i )= "p"
end if

next i



can you guys help me make this work?
and thank you!!
this is what it needs to look like
https://postimg.org/image/e62z4xwlj/

 

[aj_bk]

nvm.
got my answer.
thank you