vba code for deleting same row in 2 sheets

[Mr Novice]

Hi guy's

Can someone help me with a code to delete same entire rows on 2 sheets?
i.e. delete entire row in Sheet1 which deletes the same entire row in Sheet2


Note I already have the following code for other tasks in this Workbook -
Sheet1 Module

Public LastSelect As Range


Private Sub Worksheet_Activate()
Me.Range(Sheet2.LastSelect.Address).Select
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set LastSelect = Target
End Sub


Sheet2 Module
Public LastSelect As Range


Private Sub Worksheet_Activate()
Me.Range(Sheet1.LastSelect.Address).Select
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set LastSelect = Target
End Sub



Many Thanks

 

[Takae]

Sheet1 Module

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Target.row
Sheets("Sheet2").Rows(r).EntireRow.Delete
End Sub

If the third row of sheet1 is deleted, third row of sheet2 will be deleted.
Hope this helps.

 

[Mr Novice]

Thanks Takae
The deleting part worked but it messed up the calculation formulas in the cells on Sheet2.
Sheet2 has formulas that works off the same cell in Sheet1.

 

[Takae]

Regardless of manual or VBA, it is assumed that rows are deleted, so the formula must be changed.