Nếu từ code anh VetMini, chỉ cần tìm dòng cuối cột D, để nguyên code chạy từ đó trở xuống, sửa code ít
Chỉ cần thay
ngay = 0
thang = 0
ngayt = 0
For Each cll In Range(Cells(2, "D"), Cells(Cells(10000, "C").End(xlUp).Row, "D"))
Bằng
LastRw = Cells(10000, "D").End(xlUp).Row
ngay = 0
ngayt =...