Thử code này xem sao
Sub InsertPageBreaks()
Dim Tmp1 As String, Tmp2 As String, Rng As Range, K As Long
With Sheets("IN DAYLUONG")
.Cells.PageBreak = xlPageBreakNone
Set Rng = .Range("A2:AS" & .Range("B" & Rows.Count).End(3).Row)
Tmp1 = Rng(2, 5).Value & Rng(2, 6).Value & Rng(2, 7).Value
For K =...