Hi. Can someone help me locate the part of my script that contains the action to enable/disable filters? Circled below.

Capture.PNG


Sub Macro2()'
' Macro2 Macro
'


'
    Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
        xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="x", Replacement:="*", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Range("C1").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-2]&RC[-1]"
    Range("C1").Select
    Selection.AutoFill Destination:=Range("C1:C29")
    Range("C1:C29").Select
    LastRow = Range("A1").End(xlDown).Row ' Ctrl+Down from cell A1
Range("C1").AutoFill Destination:=Range("C1:C" & LastRow)
Range("C1").AutoFilter
    Selection.Copy
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Thanks for your help!!