Macro to insert 10 rows after data after last row before Total

[howard]

I have "total" in Col A after the last row of data

I would like a macro to insert 10 rows before the "text" total

Your assistance in this regard is most appreciated

 

[VBA Geek]

Range("A:A").Find("Total", , xlValues, xlWhole, xlByRows).Resize(10).EntireRow.Insert xlDown

 

[howard]

thanks for the help, much appreciated