Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub DeleteOldRecords() 'PostSavedCOGIs 'Delete records older than 90 days. Sheets("PostSavedCOGIs").Select Rows("1:1").AutoFilter ActiveSheet.Range("A:U").AutoFilter Field:=21, Criteria1:= _ "<11/11/2016", Operator:=xlAnd LastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row LastColumn = Cells(1, Cells.Columns.Count).End(xlToLeft).Column Range(Range("A2"), Cells(LastRow, LastColumn)).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp Rows("1:1").Select Range("B1").Activate Selection.AutoFilter End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.