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