Combine formula's without overwriting.

[FROGGER24]

I have these two lines of code that I would like to combine so it does not overwrite a cell if it has a value in it
Range("A2:A" & Cells(Rows.Count, 3).End(xlUp).Row).FormulaR1C1 = "=IF(ISNUMBER(SEARCH(""PBO"",RC[3])),""S"")"
Range("A2:A" & Cells(Rows.Count, 3).End(xlUp).Row).FormulaR1C1 = "=IF(ISNUMBER(SEARCH(""VS"",RC[2])),""B"",""S"")"

Thanks in advance

 

[Fluff]

Duplicate Combine formula's without overwriting.

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).