It compiled but I haven't tested it because the sheet numbers have changed, that code refers to Sheet2 which doesn't exist in this workbook.
From post #39

Then on the next line you've changed that to Sheet1!!

They need to be changed to either the correct sheet number for the PO sheet OR changed to:

lr = Sheets("Accrual & PO Data").Cells...
etc