удаления пустых листов в excel

[36,6]

Добрый день люди добрые !!! Помогите пожалуйста медикам.
Умею пользоваться Excel как пользователь. Есть таблица со значениями лекарств надо создать кнопку удаления (Кнопку я создал) что бы при нажати все листы в книге которые не заполнены удалялись! Для примера даю файл с четырмя листиками. (в нём должен при нажатии кнопки удаляться лист "остальные препараты" помогите сделать макрос для него дальше думаю разберусь
Огромное спасибо
Очень жду ответа

[Hugo121]

Private Sub CommandButton1_Click()
Dim i&
Application.DisplayAlerts = False
For i = ThisWorkbook.Worksheets.Count To 2 Step -1
If Worksheets(i).[b5:j21].Text = "" Then Worksheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub