'Remove From Data Sheet
    Sheets("Data").Select
    Range("M1").Select
    Selection.AutoFill Destination:=Range("M1:M200"), Type:=xlFillDefault
    Range("M1:M200").Select
    Range("A2").Select
    ActiveSheet.Range("$A$1:$D$200").AutoFilter Field:=13, Criteria1:="=No Match", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$1:$D$200").AutoFilter Field:=1, Criteria1:=">0", _
        Operator:=xlAnd
    On Error Resume Next
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Delete
        'Clear Filter
    ActiveSheet.Range("$A$2:$M$118").AutoFilter Field:=1
    ActiveSheet.Range("$A$2:$M$118").AutoFilter Field:=13



        'Remove From Table Sheet
    Sheets("Table").Select
    Range("A1").Select
    ActiveSheet.Range("$A$1:$D$200").AutoFilter Field:=2, Criteria1:="=#N/A", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$1:$D$200").AutoFilter Field:=1, Criteria1:=">0", _
        Operator:=xlAnd
    On Error Resume Next
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).SpecialCells(xlCellTypeVisible).Delete
        'Clear Filter
    ActiveSheet.Range("$A$2:$M$118").AutoFilter Field:=1
    ActiveSheet.Range("$A$2:$M$118").AutoFilter Field:=2
        Range("A2").Select
    Selection.AutoFill Destination:=Range("A2:A200"), Type:=xlFillDefault
    Range("A2:A200").Select
    ActiveWindow.SmallScroll Down:=-261
        Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B200"), Type:=xlFillDefault
    Range("B2:B200").Select
    ActiveWindow.SmallScroll Down:=-261
        Range("C2").Select
    Selection.AutoFill Destination:=Range("C2:C200"), Type:=xlFillDefault
    Range("C2:C200").Select
    ActiveWindow.SmallScroll Down:=-261