VBA auto sort multicolumn table when data is changed or deleted in protected sheet mode

I use the code to automatically sort the table by attribute "Name" from column B.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error Resume Next
 If Not Intersect(Target, Range("A:Z")) Is Nothing Then
  Range("B5").Sort Key1:=Range("B6"), _
  Order1:=xlAscending, Header:=xlYes, _
  OrderCustom:=1, MatchCase:=False, _
  Orientation:=xlTopToBottom
 End If
End Sub

The first problem with this code is that when I delete a record after the first line remains an empty cell.
The second problem is how to make the code work while sheet is password-protected.
Protected password can be found in sheet PASS.

This is the WeTransfer link to an Excel file: we.tl/t-00zqVQgx82