Vba copy dòng cuối và dữ liệu+thêm stt ok (ai giúp mình undo được mỗi khi thêm dòng không)

[alpha1810]

Vba copy dòng cuối và dữ liệu+thêm stt ok (ai giúp mình undo được mỗi khi thêm dòng không)
file kèm theo.

 

[Sa DQ]

Bạn thêm câu lệnh (có đánh dấu) để hiểu rõ hơn vấn đề cái đã!

Sub THEMDONGCUOI()
On Error Resume Next
  ActiveSheet.AutoFilterMode = 0
  With [A65536].End(3)
  .Resize(, 175).Copy
  .Offset(1).Resize(1, 175).Insert xlDown, 0
  .Offset(1).Resize(1, 175).SpecialCells(1).Value = ""
  .Offset(1).Resize(1, 5).Interior.ColorIndex = 34 + .Row Mod 9  '<=|'
  End With
  Application.CutCopyMode = 0
End Sub