Viết sai chính tả nhiều quá. Hãy xem và sửa lại trước khi post bài và cần rút kinh nghiệm luôn và ngay.
Trong khi chờ đợi các code khác. thử tham khảo đoạn code sau:
Option Explicit
Sub TimNgay()
Dim i&, Lr&, t&, Ngay As Date, D As Date, eDay As Date
Dim Arr(), Res, Tu As Date, Den As Date...