Em bị lỗi trong lệnh ADvancedfilter mà không biết cách khắc phục mong được hỗ trợ

[Nguyên9810]

Sub Tim_kiem()
Dim data_rg, criteria_rg, copy_rg As Range
Set data_rg = ThisWorkbook.Sheets("Danh sach NX").Range("B5").CurrentRegion
Set criteria_rg = ThisWorkbook.Sheets("Sheet1").Range("B3").CurrentRegion
Set copy_rg = ThisWorkbook.Sheets("Sheet1").Range("B6").CurrentRegion

ThisWorkbook.Sheets("Sheet1").Rows("7:10000").EntireRow.Delete
data_rg.AdvancedFilter xlFilterCopy, criteria_rg, copy_rg

End Sub

 

[cantl]

Sub Tim_kiem()
Dim data_rg, criteria_rg, copy_rg As Range
Set data_rg = ThisWorkbook.Sheets("Danh sach NX").Range("B5").CurrentRegion
Set criteria_rg = ThisWorkbook.Sheets("Sheet1").Range("B3").CurrentRegion
Set copy_rg = ThisWorkbook.Sheets("Sheet1").Range("B6").CurrentRegion

ThisWorkbook.Sheets("Sheet1").Rows("7:10000").EntireRow.Delete
data_rg.AdvancedFilter xlFilterCopy, criteria_rg, copy_rg

End Sub

CurrentRegion sẽ lấy toàn bộ các ô liền kề. Nên điều kiện lọc nó lấy theo tiếng (hình như tàu). Tớ đoán thế.
Xóa đê.
Còn sửa code mà vẫn giữ dòng đấy thì tớ chịu nhé.