VBA FOR INSERTING ROWS

[becky halsey]

I need a VBA or a non vba to insert rows before the target row in a workbook. Not all sheets will have the same target row. Any ideas? Thanks in advance.

[Logit]

.

Option Explicit


Sub AddRow()
    Dim ws As Worksheet
    Dim rng As Range


    '~~> Set this to the relevant worksheet
    Set ws = ThisWorkbook.ActiveSheet        

    With ws
        '~~> Set your range
        Set rng = .Rows(ActiveCell.Row)


        '~~> Insert the range
        rng.Offset(0).Insert Shift:=xlDown        '<--  NOTE: Change Offset to (1) & xlDown for new row down.
                                                '<--  Note: Change Offset to (0) & xlUp for new row up.
    End With
End Sub

[becky halsey]

Worked perferect!

Thanks!

[Logit]

.
Welcome.