I'm not sure about the final appearance, but in AddHeaders

[VBA]
'------------- Range("E24").Insert
With Range("E24")
.Formula = "=(D24+1)"
.Font.Name = "Arial"
.Font.Size = 9
.Font.Bold = True
.AutoFill Destination:=.Resize(1, Spread), Type:=xlFillDefault
End With
[/VBA]

You are inserting a cell at E24. When I comment it out, it doesn't seem to push it down

Paul