Bạn tham khảo code sau -làm theo ý hiểu của bản thân
Option Explicit
Sub Thu(ByVal eRng As Range)
Dim RowPage&, nPage&, Lr&, rTieuDe&, rKyDuyet&, i&, k&, t&, f&, m&, SoTrang&
Dim PrintArea As String, Rng As Range, Vung, D
On Error GoTo Thoat
Lr = Range("A1000000").End(xlUp).Row - 2
rTieuDe =...