Hỏi về lỗi trong code autofilter

[ktduykhang2]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$6" Then Exit Sub
    Range("$B$13").Select
    Selection.AutoFilter Field:=1, Criteria1:="<>"
End Sub

các bạn giúp mình xem đoạn code này sai ở đâu mà nó không chạy, mình là thành viên mới gia nhập VBA mong các bạn giúp mình nha,với D6 là validation, và b13 là cột autofilter