If you change those formula from

this format
.FormulaR1C1 = "=IF(RC[-2]"=""""
to this one using the letters like it shows in excel
.Formula = "=IF(Q2=""""
then they will be more readable.

But that formula doesn't look like it would be slow.