Lúc đầu đọc bài 1 em cũng thắc mắc;
1. Nếu dùng VBA để chạy thì dùng luôn
lr = ws.Cells(ws.Rows.Count, "J").End(xlUp).Row
sau đó dùng
ws.Range("A6:A" & lr).FillDown
2. Mà vụ tô cả cột này nó cũng chỉ tổ nặng, cái nào cần thì dùng condition formatting thôi