VBA- if criteria met, place desired text in the next column

I would like to turn an if formula into VBA code:

I have information in Column"Q" "Alphanumeric string 255 max char" with note based descriptions I have a blank Column"R"

Formula in "R2" =IF(ISNUMBER(SEARCH("sc",Q2)),"Service Call","")

I have about 39,000 rows to do this with, which is why I would like to try in VBA.

What if I needed a different instance?

=IF(ISNUMBER(SEARCH("sp",Q2)),"Springs","") **Multiple conditions for ... =IF(ISNUMBER(SEARCH("Amarr",Q2)),"Door","") **Multiple conditions for ...