Chỉ dùm em chỗ code sai!

[NH_DK]

A/C chỉ dùm em chỗ code sai nhé! Em làm rồi nhưng không hiểu sao code sai chỗ nào mà nó kẻ bảng không đúng.
(Câu hỏi cụ thể trong file đính kèm)

 

[ptm0412]

Mò mẫm mãi mới ra cái bạn muốn nói nằm ở sub nào module nào. Bạn nói sớm và nói rõ có phải tốt hơn không?
Tìm ra rồi cũng không chạy thử được nữa chứ, nó đòi update data, mà data ở đâu, file nào, chỉ mình bạn biết.

Sub Loc1, Module3:

j = Sheet7.Range("A65000").End(xlUp).Row + 1
    Sheet22.[a12:h12].Copy
    Sheet7.Range("A12:H" & j).PasteSpecial Paste:=xlPasteFormats
    Sheet22.[a13:h17].Copy Sheet7.Cells(j + 2, 1)

Chỉ cần làm 1 chuyện: Xoá borders của dòng 13 sheet22 (tmp2)