Hi All,

I am not sure if this is possible i was thinking maybe it would need to be a find/remove macro or a filter remove.

In column A there is about 6000 accounts (No Duplicates). Below is a sample of accounts and i want to remove all account that start with 997 or not move then to the new sheet.

1234567890
2345678910
3456789012
4567890123
9970000001
9971234567
9972223457

I already have a macro that moves the data but i want to eith filter out the 997 accounts of delete them once i have moved the data to a new sheet.

Here is the macro i am using so far that i want to enhance:

Sub ZeroReview()
Dim C As Range
MainBk = ActiveWorkbook.Name 'Defines variable MainBK as the current Main WorkBook
Workbooks(MainBk).Activate
Sheets("MFD504-J").Activate
ActiveSheet.AutoFilterMode = False
Rows(1).AutoFilter Field:=9, Criteria1:="#N/A"
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Sheets("Zero Review").Activate
Range("A1").PasteSpecial
Columns("A:J").Select
Columns("A:J").EntireColumn.AutoFit
Sheets("MFD504-O").Activate
ActiveSheet.AutoFilterMode = False
Rows(1).AutoFilter Field:=9, Criteria1:="#N/A"
Range("A2:J5000").Select
'Selection.CurrentRegion.Select
Selection.Copy
Sheets("Zero Review").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("Zero Review").Activate
Columns("A:J").Select
Columns("A:J").EntireColumn.AutoFit
Application.ScreenUpdating = False
    For Each C In Range("B2:B" & Cells(Rows.Count, "H").End(xlUp).Row)
        C.Value = DateSerial(Left(C.Value, 4), Mid(C.Value, 5, 2), Right(C.Value, 2))
        C.NumberFormat = "mm/dd/yyyy"
        Next
ActiveSheet.AutoFilterMode = False
Rows(1).AutoFilter Field:=2, Criteria1:="<=" & Now - 178
I am not a great code writer so forgive me...