adding lines to subtotal groups

[daveonion]

hi i'm using the subtotal function, i.e.
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=adders, PageBreaks:=True

and i'm wondering whether there is a piece of code which would add a line to seperate data from the subtotal for every group.
any help would be appreciated thanks

ps the size of the report will be different everytime the code is ran