Программы

Alt+ F11  - запуск VBA
В дереве открыть самый нижний пунк и туда вставить код.
Запуск: или на зеленую стрелочку в окне кода или выполнить макрос с панели в Excel

Код:

Sub r()

   For s = 1 To Worksheets.Count
       Worksheets(s).Activate
       a = Split([H9], "№")(1)
       
       Dim w As Worksheet
  On Error Resume Next
  Application.DisplayAlerts = False
  For Each w In Worksheets
    If IsNumeric(w.Name) And IsEmpty(w.Range("H9")) Then w.Delete
  Next
  Application.DisplayAlerts = True
       ActiveSheet.Name = "ЛС" & a

       Next s
End Sub

где:
H9- ячейка
№ - после него берется название
ЛС- название до