67341.jpg

Backup before using it!!!!
Here's the code:

Sub test1()
    Dim arS1, arS2, lr As Long, i As Long, j As Long, x As Long, sh As Worksheet
    Dim dic As New Scripting.Dictionary, kys()
    lr = Sheet1.Cells(Rows.Count, 1).End(3).Row
    arS1 = Sheet1.Range("A1:A" & lr)
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name <> "PO Accrual Data" Then
            lr = sh.Cells(Rows.Count, 1).End(3).Row
            If lr < 3 Then GoTo Nxt
            For i = 2 To UBound(arS1)
                For j = lr To 3 Step -1
                    If arS1(i, 1) = sh.Cells(j, 1) Then
                    sh.Range("A" & j).EntireRow.Delete
                    End If
                Next
            Next
        End If
Nxt:
    Next
End Sub