Hi Gary,

To insert the row(s) in the active sheet, change:

SH.Range("A10").Resize(10).EntireRow.Insert

to

Me.Range("A10").Resize(10).EntireRow.Insert

Change the location for the insertion and the number of
rows to be inserted to accord with your requirements.



---
Regards,
Norman