Loop and insert row

[Excelnoobisme]

Hi i use subtotal marco..

Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True

how can i insert a row after every subtotal and i want to Bold my subtotal and have a 'Top and Bottom Border' at all the subtotal and grand total

 

[GlennUK]

Why would you want to insert rows like that? You are destroying the structure of your data, if you do that.