Bạn thử thay code cũ bằng code này (đã sửa tý chút)
Sub copykl()
Dim wb As Workbook, wbtong As Workbook, FileName, i As Integer, j As Integer, dong As Integer
Dim R&, Lr&, dCuoi&, t&
Dim Sh As Worksheet, Ws As Worksheet
Set wbtong = ThisWorkbook
Set Sh = Sheet1
dCuoi = Sh.Range("C" &...