Insert a number of rows based on a cell value and copy formulas on multiple worksheets

I have looked through other threads and haven't found a solution that does all I need. On one worksheet, I want the user to enter the number of line items needed for each expense category in a cashflow. Then I want to add the specified number of lines to each cashflow (there are a number of cashflows, each is their own worksheet). A budget worksheet totals the cashflows so we need the cashflows always to have the same number of lines.

I have the following code for one of the expense categories:

Sub InsertRows()

' InsertRows Macro
Dim y As Integer
y = Range("B9")
If y < 2 Then Exit Sub
    Sheets(Array("Budget", "LMDA Cashflow", "LMA Cashflow", "Provincial Cashflow", _
        "ILFIF", "Industry Cash", "In Kind", "Other")).Select
    Sheets("Budget").Activate
    ActiveWindow.SmallScroll Down:=-27
    Rows("10:10").Select
    Selection.Copy
    Selection.EntireRow.Insert (y)
End Sub

It works most of the time (not always) and will not work when I try to put it in the command button on the first worksheet where I want it.

Next and I haven't even attempted this yet, I want all worksheets except the set up one protected until the workbook is populated by clicking on the build workbook buttom so users cannot corrupt the formulas in it.

Any help is appreciated.