Sub Find_and_replace_and_filter_all()

' ALL_FIND_REPLACE_FILTER_DELTE Macro for all.csv

    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet

    Set wkb = Excel.Workbooks.Open("G:UsersDocumentsall.csv")
    Set wks = wkb.Worksheets("all")

    wks.Cells.Replace What:=",", Replacement:="-", LookAt:=xlPart, SearchOrder _
        :=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:= _
        False
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$AC$5903").AutoFilter field:=6, Criteria1:="0"
    ActiveSheet.Range("$A$1:$AC$5903").AutoFilter field:=9, Criteria1:="Main"
    Rows("2:2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter

    'TITUS classification
    SendKeys "{DOWN}{DOWN}{DOWN}{ENTER}", True      'set classification
    SendKeys "{DOWN}{DOWN}{ENTER}", True            'set classification
    SendKeys "{ENTER}", True                        'send to group

    wkb.Close saveChanges:=True

End Sub