.Range(\"BS2:BS\" & NewLastRow).Formula = \"=IF((OR(BR2=\"\"FLAG\"\",BO2>0)),\"\"FLAG\"\",\"\"NOFLAG\"\" ))\"
I am using this formula in VBA but
In general, try the following:
Public Sub PrintMeUsefulFormula()
Dim strFormula As String
Dim strParenth As String
strParenth = """"
strFormula = Selection.Formula
strFormula = Replace(strFormula, """", """""")
strFormula = strParenth & strFormula & strParenth
Debug.Print strFormula
End Sub
Source: Apply formula in VBA?