Gặp lỗi khi sử dụng Advance Filter (3 người xem)

[langtuchungtinh360]

Vấn là là bạn có nói rõ phải làm thế nào đâu, hay bằng A gì đó đâu nên tui test thử thôi, Những file mình đang có toàn làm giống của Phong và Bác HYen17 thôi (=,>=,<=). Thằng Auto Filter thì Criteria còn có nhiều điều kiện. Advanced chắc phải tạo cột phụ thôi, còn cách khác thì hiện tại mình cũng ko biết.

nhờ bác và mọi người giúp mình cái này với
http://www.mediafire.com/download/f92xs5r3xrkgi28/HoSoKCS+CKGTB+16-10-15.rar
hiện tại đang ở Sheet NTBT
trên ribbon nhấn theo trình tự sau
"Trang 2"
⇒ "Hạng mục"
M51 với M52 thay đổi nhưng không AutoFilter được (ba hồi chạy được, ba hồi không được)
cho mình hỏi lý do tại sao như vậy
------------------
ngoài lề:
như khi bạn nhấn vào trang 2 thì code chạy cực kỳ chậm
mình tìm ra nguyên nhân là do dòng này
Lc = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
tìm giá trị cuối cùng xuất hiện trên cột
vậy cho mình hỏi còn cách nào khác không (cách tổng quát- đúng ở mọi trường hợp)