Insert 'n' number Rows after any specified row no.

[LalitPandey87]

Hi All,

I need a VBA Function which takes the "specified row number" and "Number of rows to be inserted" as a parameter.

Please Help

Thanx in Advance.

[Admin]

Hi Mohan,

Try this

Sub InsertRows(ByVal RowNo As Long, ByVal NoOfRows As Long, Optional ByVal Sht As Worksheet)

    Dim lngSU       As Long
    Dim lngCalc     As Long

    With Application
        lngSU = .ScreenUpdating
        .ScreenUpdating = False
        .EnableEvents = False
        lngCalc = .Calculation
        .Calculation = xlCalculationManual
    End With
    
    If Sht Is Nothing Then Set Sht = ActiveSheet
    
    Sht.Rows(RowNo).Resize(NoOfRows).Insert
    
    With Application
        .ScreenUpdating = lngSU
        .EnableEvents = True
        .Calculation = lngCalc
    End With
    
End Sub

and call the routine like..

Sub Test()
    InsertRows 10, 5
End Sub

[LalitPandey87]

Thanx for this useful function.
Working!