Nhờ giúp đỡ auto fillter lần lượt các đối tượng trong cột (1 người xem)

[khaiktt]

Xin nhờ các anh chị giúp đỡ đoạn code để lọc và in lần luợt các đối tượng trên cột A trong file đính kèm theo ý tưởng như sau
Lọc - in - lọc - in cho đến khi nào hết các đối tượng trong cột A thì thôi
Trân trọng cảm ơn!

 

[khaiktt]

Em đã làm thế này
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 15/12/2016 by khaiktt
'


'

End Sub
Mong các anh chị chỉ bảo thêm