Make the cell tell you how big a range to select before inserting rows.
Base cell content:
Cells(1, 3)
make a sub that sort of says:
Rows("11:&Cells(1, 3)").Select
Selection.insert Shift:=xlDown
Otherwise you could try using the cstr function to draw a value from a cell.
gluck