Excel VBA筛选出一个值，然后删除可见行

Question

我有以下代码，我想要做的是过滤掉员工的名字，然后删除所有可能包含所有其他员工数据的可见行，然后显示第一个员工＆＃ 39; s数据。我已经使用MsgBox功能进行调试，并为员工返回正确的值。我还使用了逐步工具，我注意到的是添加了AutoFilter，然后当我检查B列中的过滤器时，没有任何员工被检查，那么没有行被删除。我非常感谢您对此代码的任何帮助，因为我确信我错过了一些愚蠢的东西。

'Filter out the employee name, and delete visible rows down to the last row in column A
With Range("A4:DZ" & lastRow)
    .AutoFilter Field:=2, Criteria1:="<>" & empName, Operator:=xlAnd
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

'Unfilter the sheet
Worksheets("Sheet1").ShowAllData