chèn hàng sau khi lọc

Em có file này, bác nào biết dùng vba để lọc giá trị lớn hơn 5 của cột H từ ô H6 đến dòng dữ liệu cuối cùng (tìm động theo kiều xLastRow). Sau khi lọc thì chèn thêm dòng ngay bên dưới mỗi dòng dữ liệu lọc được rồi sao chép hết các dữ liệu của dòng trên xuống dưới. Sau khi đã có dữ liệu mới thì...