问在要求之外插入行

EN

Sub AddPlots()
    Dim j As Integer, r As Range,

    'Set Number of Rows to be added
    j = InputBox("How many open market units does the development have?")

    ' Add Rows On Master Appraisal
    With Worksheets("Master Appraisal")
        Set r = Range("FirstPlot")
        Do
            Range(r.Offset(1, 0), r.Offset(j - 1, 0)).EntireRow.Insert
            Set r = Cells(r.Row + j + 1, 1)
            If r.Offset(1, 0) = "" Then Exit Do
        Loop
    End With

'Add Rows On Cashflow
    With Worksheets("Cashflow")
        Set r = Range("FirstPlot2")
        Do
            Range(r.Offset(1, 0), r.Offset(j - 1, 0)).EntireRow.Insert
            Set r = Cells(r.Row + j + 1, 1)
            If r.Offset(1, 0) = "" Then Exit Do
        Loop
    End With

'Add Rows On Fees (NHBC section)

    With Worksheets("Fees etc")
        Set r = Range("FirstPlot3")
        Do
            Range(r.Offset(1, 0), r.Offset(j - 1, 0)).EntireRow.Insert
            Set r = Cells(r.Row + j + 1, 1)
            If r.Offset(1, 0) = "" Then Exit Do
        Loop
    End With

'Add Rows On Fees (Marketing section)
    With Worksheets("Fees etc")
        Set r = Range("FirstPlot4")
        Do
            Range(r.Offset(1, 0), r.Offset(j - 1, 0)).EntireRow.Insert
            Set r = Cells(r.Row + j + 1, 1)
            If r.Offset(1, 0) = "" Then Exit Do
        Loop
    End With

'Populate New Rows with Data
    Worksheets("Cashflow").Range("Topline2").AutoFill
    Destination:=Range("Topline2").Resize(j), Type:=xlFillDefault
    Worksheets("Master Appraisal").Range("Topline").AutoFill 
    Destination:=Range("Topline").Resize(j), Type:=xlFillDefault
    Worksheets("Fees etc").Range("Topline3").AutoFill
    Destination:=Range("Topline3").Resize(j), Type:=xlFillDefault
    Worksheets("Fees etc").Range("Topline4").AutoFill
    Destination:=Range("Topline4").Resize(j), Type:=xlFillDefault

End Sub