Sub Macro2()

'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+R
Dim i As Long
For i = 4 To 15
Worksheets(i).Activate
    Range("A12:P79").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$12:$P$80").AutoFilter Field:=14, Criteria1:="<>"
    Range("A1:P82").Select
        With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
Next i
End Sub

------

bo auto filter hang loat

Sub Macro2()

'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+R
Dim i As Long
For i = 4 To 15
  If Worksheets(i).AutoFilterMode Then
     Worksheets(i).AutoFilterMode = False
     End If
Next i
End Sub