Как удалить пустую строку, основанную на значении ячейки в другом столбце?

Question

У меня есть столбцы а и б.Я хочу удалить пробелы в столбце b, который основан на значении в столбце a.

Вот код, который я пробовал, но он не работает.

Sub Delete()

Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long

  With Sheets("Sheet2")
 .Select

 Firstrow = .UsedRange.Cells(1).Row
 Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row

   For Lrow = Lastrow To Firstrow Step -1

      If .Cells(Lrow, "A").Value = "Administration" And _
         .Cells(Lrow, "B").Value = "" Then .Rows(Lrow).Delete

   Next Lrow

 End With
End Sub

Вот данные, которые я использую: