With Sheets("a")
Drlng = .Range("A" & Application.Rows.Count).End(xlUp).Row
.Range("K2:K" & Drlng).FormulaLocal = "=SI(J2<>"""";((C2+I2)/((C2+I2)-J2))-1;"""")" '<==
.Range("L" & Drlng + 1).FormulaLocal = "=I" & Drlng & "-H" & Drlng
.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With