Lọc dữ liệu tương tự AdvancedFilter theo 1 số điều kiện

[MinhKhai]

Em có nhu cầu lọc dữ liệu sang sheet khác từ 1 sheet TongHop
Hiện tại em lọc bằng AdvancedFilter tuy nhiên không biết là do chưa biết dùng hay là hạn chế cố hữu của AdvancedFilter mà em muốn có dòng tổng cộng phía dưới nhưng không được. (Chạy AdvancedFilter là nó xóa)
Ngoài ra dùng Advanded Filter thì các tiêu đề sheet được lọc phải giống hệt tiêu đề sheet gốc, trong thực tế em muốn em có sự điều chỉnh 1 chút.
Nhờ các anh chị em trong diễn đàn cho 1 hoặc nhiều cách lọc khác sao cho đáp ứng yêu cầu em đã trình bày chi tiết trong file đính kèm.
Em xin cảm ơn

 

[MinhKhai]

Tên Lái xe: Ô M3 --->cột 5 sheet NhatTrinh
Trong code:

Txt = .Range("M3").Value    '-------Gán Txt = ô M3'
    For I = 1 To R
        If sArr(I, 2) = Ngay Then
            If sArr(I, 5) = Txt Then ' ---Nếu Cột 5 = Tên Lái xe'

Cảm ơn bác nhiều. Thật may đã được 1 lần cụng ly với bác

 

[MinhKhai]

Tiếp sheet còn lại và thêm định dạng.

Cách vận dụng AdvancedFilter của các bác thật linh hoạt, em dùng đã thấy rất hài lòng. Trong code bác còn chú thích nữa, điều này thật dễ dàng cho em tìm hiểu. Em cảm ơn bác rất nhiều.
Chúc bác luôn mạnh khỏe.