Macro to Insert Row in selected cell (Dynamic selection)

[harinsh]

Hi Team,
I have two similar sheets with different formulas (reference linked). I would need macro code in order to insert row in any selected cell (dynamic) the same thing needs to be updated (inserted in this case) to another similar sheet with same reference range.

Example:
There are two sheets 1) Sheet1 & 2) Sheet2
If I insert row in Sheet1 - A2 cell then same needs to be inserted in Sheet2.

Please help me on this.

Thanks,
Harish

 

[Momentman]

Try something like this

It inserts the row on the current worksheet which should be sheet 1 and also on another sheet named sheet 2

Sub Insertrwo()
    Dim wks As Worksheet
    Dim k As Integer
    
    Set wks = Worksheets("Sheet2")
        k = ActiveCell.Row
        ActiveCell.EntireRow.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        wks.Activate
        wks.Rows(k).Select
        Selection.Insert shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

Let's see how it goes

 

[harinsh]

Perfect!!!!!! It's working fine....

Thanks a lot

 

[harinsh]

May I request you to please provide me row delete or remove for the same tasks.
Thanks,

 

[Momentman]

May I request you to please provide me row delete or remove for the same tasks.
Thanks,

Maybe something like this

Sub delrows()
    Dim wks As Worksheet
    Dim k As Integer
    
    Set wks = Worksheets("Sheet2")
        k = ActiveCell.Row
        ActiveCell.EntireRow.Delete shift:=xlUp
        
        wks.Activate
        wks.Rows(k).Select
        Selection.Delete shift:=xlUp
End Sub

 

[harinsh]

Many Thanks ...it's working fine and your superb