Sub cpadilla0024()
On Error Resume Next
Range("K:L").SpecialCells(xlFormulas).ClearContents
On Error GoTo 0
With Range("K2", Range("A" & Rows.Count).End(xlUp).Offset(, 11))
.Formula = Array("=+LEFT(E2,1)&""XXX""", "=IF(A2<0,""NEED BUDGET"",""OKAY"")")
End With
End Sub