With Sheets("a")
.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Drlng = .Range("A" & Application.Rows.Count).End(xlUp).Row
.Range("i" & Drlng + 1).FormulaLocal = "=I" & Drlng & "-H" & Drlng
.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End With