在vba中使用或条件过滤

Question

我有一系列数据，包括名单及其主管。我试图过滤这些数据，以便只包含给定的名称，并且人员监督的人的名字基本上是他们的名字在employee列或supervisor列中。我已经研究了高级过滤器选项，但还没有看到它如何适用于我的问题。我使用if语句创建了一个代码，但它没有正确过滤。有更简单的方法吗？

    For Each resource In wkbNewBook.Sheets("Availability").Range("A37:A116")
    rw = resource.Row
        If Not resource.Value = wkbNewBook.Sheets("Project List").Range("A6").Value Then
            resource.EntireRow.Hidden = True
        ElseIf Not wkbNewBook.Sheets("Availability").Cells(rw, "E").Value = wkbNewBook.Sheets("Project List").Range("A6").Value Then
            resource.EntireRow.Hidden = True
        Else
            resource.EntireRow.Hidden = False
        End If
        If resource.EntireRow.Hidden = True Then
            resource.EntireRow.Delete
        End If
    Next resource

所需名称位于不同工作表上的单元格A6中。员工姓名位于A列，主管姓名位于E列。