Excel VisualBasic Script

Sub fileterAuto()
     If ActiveSheet.AutoFilterMode Then
         ActiveSheet.autoFilter.range.autoFilter
     End If
End Sub