Hello, pretty new to this so bear with me. I have a workbook in which I need to be able to filter the data based on the date(hide all within the last 3 months), then obtain the unique values in column E, print a list of those unique values, then delete the visible(older than 3 months) rows, and unhide the remaining data. This is the code I have been working on however it is not working other than printing. Can anyone help me out with this. I was unable to attach a sample workbook on this device so I am sharing a screenshot.
' Terminate_Archived_90 Macro ' This macro deletes all samples older than 90 days from the Archived List and prints a report of all Trays that are to be dumped. Dim sht As Worksheet Dim dDate As Object Set sht = Worksheets("Archived") Set dDate = sht.Range("M1") With sht.Range("A1:H" & Range("A" & Rows.Count).End(xlUp).Row) .AutoFilter .AutoFilter Field:=8, Criteria1:=">dDate" lastrow = Cells(Rows.Count, "E").End(xlUp).Row ActiveSheet.Range("E2:E" & lastrow).AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=ActiveSheet.Range("O2"), _ Unique:=True Range("O1:O" & [O65536].End(xlUp).Row).PrintOut Range("A2:H" & [h65536].End(xlUp)).Delete shift:=xlUp Range("A:H").EntireRow.Visible = True End With End Sub