Hello John,
I tried to execute the script you shared.
The problem is in this line
_Excel_RangeInsert($oWorkbook.ActiveSheet, "2:2") ; "Before row, number of rows to insert "
In the above line 2:2 indicates, adding of rows from 2nd row to 2nd row. That is the reason it inserts only one row.
If you want to add two rows this is how it should be
_Excel_RangeInsert($oWorkbook.ActiveSheet, "2:3") ; "Before row, number of rows to insert "
Good luck