' this code copy to WorkSheet area

Dim lOldRowCount As Long


Private Sub Worksheet_Activate()
    ActiveSheet.UsedRange
    lOldRowCount = ActiveSheet.UsedRange.Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lNewRowCount As Long

    ActiveSheet.UsedRange
    lNewRowCount = ActiveSheet.UsedRange.Rows.Count

    If lOldRowCount = lNewRowCount Then
        ElseIf lOldRowCount > lNewRowCount Then
            MsgBox ("Row Deleted")
             ' Call UndoLastAction() ' <<-- uncomment if it needs
            lOldRowCount = lNewRowCount
        ElseIf lOldRowCount < lNewRowCount Then
            MsgBox ("Row Inserted")
            lOldRowCount = lNewRowCount
    End If


End Sub

Sub UndoLastAction()

    With Application
        .EnableEvents = False
        .Undo
        .EnableEvents = True
    End With

Private Sub Worksheet_Change(ByVal Target As Range)
   
  Dim i As Long, j As Long, k As Long, s As String
  i = Target.Columns.Count
  j = Selection.Columns.Count
  k = Columns.Count
   
  If i = k Or j = k Then
    s = Application.CommandBars(1).FindControl(ID:=128, Recursive:=True).Caption
    If InStr(s, "Insert Cells") Or InStr(s, "Вставить ячейки") Then
      MsgBox "Попытка вставки строк!", vbExclamation, "Отмена вставки строк"
      Application.EnableEvents = False
      Application.Undo
      Application.EnableEvents = True
    Else
      MsgBox "Строки были удалены", vbExclamation, "Не обрабатывать событие удаления"
    End If
    Exit Sub
  End If
    
  ' Ниже - код обработки  остальных случаев
  ' ...
  
End Sub