如何删除基于其他列中单元格值的空白行？

Question

我有a列和b列。我想删除基于a列中的值的b列中的空白。

这是我尝试的代码，但无法正常工作。

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

这是我正在使用的数据：