Chạy tốt a nhé :) tks a.
Tuy nhiên đoạn này e có sửa 1 chút là:
Coleter = Replace(Cells(1, Clls.Column + 1).Address(0, 0), 1, "") >>>> Coleter = Replace(Cells(1, Clls.Column).Address(0, 0), 1, "")
Liệu mình có thể mở rộng ra thành 1 code Insert nhiều cột cho nhiều vị trí có bước nhảy = n không...