Sub filter_deduction()
ActiveSheet.AutoFilterMode = False
lr = Range("K" & Rows.Count).End(3).Row
Range("K1:K" & lr).AutoFilter 1, Criteria1:=Array("DA", "DB", "DZ"), Operator:=xlFilterValues
On Error Resume Next
Range("S2:S" & lr).SpecialCells(12).Value = "Deductions"
On Error GoTo 0
ActiveSheet.AutoFilterMode = False
End Sub
Important changes highlighted below in red:
Sub filter_deduction()
ActiveSheet.AutoFilterMode = False
lr = Range("K" & Rows.Count).End(3).Row
Range("K1:K" & lr).AutoFilter 1, Criteria1:=Array("DA", "DB", "DZ"), Operator:=xlFilterValues
On Error Resume Next
Range("S2:S" & lr).SpecialCells(12).Value = "Deductions"
On Error GoTo 0
ActiveSheet.AutoFilterMode = False
End Sub