Excel vbs autofilter

'#################################################################################################
'### Autofilter
'#################################################################################################
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Not Intersect(Target, [B9:P9]) Is Nothing Then
        If Not IsEmpty(Target.Value) Then
            ActiveSheet.ListObjects("Tabelle13").Range.autofilter Field:=Target.Column - 1, Criteria1:="*" & Target.Value & "*"
        Else
            ActiveSheet.ListObjects("Tabelle13").Range.autofilter Field:=Target.Column - 1
        End If
    End If
End Sub