sætte linie og og under 2 celler, som er indsat via makro

Jeg har fået hjælp til en makro der indsætter nogle linier. Se evt.
http://www.eksperten.dk/spm/819911

Den virker fortrinligt, men jeg vil meget gerne have til af sætte en streg / "thinlinie" over den formel der indsættes i kol. D og E.

Jeg har selv forøsgt at få det til at virke, men mine evner rækker desværre ikke. :-)

Er der nogle eksperter der kan hjælpe mig med det?

Sub test()
ActiveCell.Offset(-ActiveCell.Row Mod 23 + 1, 0).Resize(23, 1).EntireRow.Insert
ActiveCell.Offset(23 - ActiveCell.Row Mod 23, 0).Select
x = Range(Cells(ActiveCell.Row - 22, "D"), Cells(ActiveCell.Row - 1, "D")).Address
Cells(ActiveCell.Row, "D").Formula = "=Sum(" & x & ")"
x = Range(Cells(ActiveCell.Row - 22, "E"), Cells(ActiveCell.Row - 1, "E")).Address
Cells(ActiveCell.Row, "E").Formula = "=Sum(" & x & ")"

x = ActiveCell.Row
Cells(x, 2) = "Total"
Cells(x - 22, 1) = Cells(1, 1)
Cells(x - 21, 1) = Cells(2, 1)
Cells(x - 20, 1) = Cells(3, 1)

Range("A" & x - 22 & ":A" & x - 20).RowHeight = 12
Range("A" & x - 19 & ":A" & x).RowHeight = 30

End Sub