Insert Row Automatically between 2 sheets

[renaoh]

I would much appreciate help from everyone. I do not have much experience on Excel, please give me some simple instructions . I have one workbook with two worksheets, Sheet 1 and Sheet 2. When I insert a row in Sheet 1, I would also like a row to be inserted in Sheet 2 automatically. How can I do that?

 

[mumps]

Copy and paste this code into the worksheet code module. Do the following: right click the tab name for your Sheet1 and click 'View Code'. Paste the code into the empty code window that opens up. Close the code window to return to your sheet. Insert a row in Sheet1.

Dim lRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lRow2 As Long
    lRow2 = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If lRow2 > lRow Then
        Sheets("Sheet2").Range("A" & Target.Row).EntireRow.Insert
    End If
End Sub

 

[renaoh]

Copy and paste this code into the worksheet code module. Do the following: right click the tab name for your Sheet1 and click 'View Code'. Paste the code into the empty code window that opens up. Close the code window to return to your sheet. Insert a row in Sheet1.

Dim lRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lRow2 As Long
    lRow2 = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If lRow2 > lRow Then
        Sheets("Sheet2").Range("A" & Target.Row).EntireRow.Insert
    End If
End Sub

Good morning, Mumps. Thank you for the instant reply and you have been very helpful. I applied the codes given and it works !!!.

I was thinking in the event that I need to delete some rows later on, how can I do that too? Hope you don't mind me asking again. Thank you.

 

[mumps]

Try:

Dim lRow As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lRow2 As Long
    lRow2 = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If lRow2 > lRow Then
        Sheets("Sheet2").Range("A" & Target.Row).EntireRow.Insert
    ElseIf lRow2 < lRow Then
        Sheets("Sheet2").Rows(Target.Row).Delete
    End If
End Sub