Sub HideIRcolumns_2019()
'
' HideIRcolumns
'

'

    Workbooks("IREXT.csv").Activate
    Sheets("IREXT").Select
    Columns("AW:AW").Select
    Selection.Cut
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight
    Columns("C:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "INFOWEB"
    Columns("C:C").Select
    Selection.Replace what:="", Replacement:="INFOWEB", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Columns("I:I").Select
    Selection.Cut
    Columns("E:E").Select
    Selection.Insert Shift:=xlToRight
    Columns("G:CP").Select
    Selection.EntireColumn.Hidden = True
    
        Range("A1:F1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$CP$25000").AutoFilter Field:=6, Criteria1:= _
        "=CLOSED", Operator:=xlOr, Criteria2:="=RESOLVED"
    ActiveSheet.Range("$A$1:$CP$25000").AutoFilter Field:=1, Criteria1:= _
        "=IPFHD*", Operator:=xlAnd
    ActiveSheet.Range("$A$1:$CP$25000").AutoFilter Field:=4, Criteria1:= _
        ">09/01/2018", Operator:=xlAnd
    ActiveSheet.Range("$A$1:$F$22706").AutoFilter Field:=5
    ActiveWorkbook.Worksheets("IREXT").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "E1:E22706"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("IREXT").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$1:$CP$25000").AutoFilter Field:=5, Criteria1:= _
        ">=11/16/2018", Operator:=xlAnd, Criteria2:="<=11/31/2018"

    Columns("A:F").Select
    Columns("A:F").EntireColumn.AutoFit
    Range("CQ1").Select
    
    'ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_PREP\_IR_DUMP_INFOWEB\IREXT" & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".xlsx")
    ActiveWorkbook.SaveAs ("C:\Users\trudel1\Documents\00.QA\KIT\REPORTING_SYNC\ESD\_PREP\_IR_DUMP_INFOWEB\IREXT" & Format(Now(), "_DD-MMM-YYYY_hh.mm AMPM") & ".csv")



End Sub