If you are on sheet A, then hold shift and click on sheet B to select both sheets. Then delete the row you want to be gone and it will do it on both sheets.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Set r = Selection
If Selection.Columns.Count = ActiveSheet.Columns.Count Then
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet1" Then
ws.Range(r.Address).EntireRow.Delete
End If
Next ws
End If
End Sub