Nhờ xử lý lỗi Run time error 1004

[thutrang15]

Em chào các anh/chị ạ.
Em nhờ các anh/chị chỉ giùm em lỗi và sửa code sau giúp em với ạ.
Mục đích là copy bảng từ sheet Tong hop sang sheet đầu kỳ.

Sub ket_chuyen()
'
' ket_chuyen Macro
'

'Sheets("Tong hop theo KH").Select
Range("TH_KH[#Headers]").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-48
Sheets("Du Dau Ky").Select
Range("DDK[[#Headers],[Sumif]]").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub

 

[befaint]

Nên mô tả thật chi tiết:

1/ Chép vùng nào ở đâu, dán vào đâu? Dán lấy những gì (giá trị, định dạng...?).

2/ Các lần sau thì chép như nào? Xóa cũ lấy mới? Giữ cũ, mới nối tiếp vào phần cũ?

 

[thutrang15]

Nên mô tả thật chi tiết:

1/ Chép vùng nào ở đâu, dán vào đâu? Dán lấy những gì (giá trị, định dạng...?).

2/ Các lần sau thì chép như nào? Xóa cũ lấy mới? Giữ cũ, mới nối tiếp vào phần cũ?

Em xin phép mô tả lại ạ:
1/ Dữ liệu gốc tại sheet Tong hop theo KH: copy côt A -> C, H -> I (nợ cuối kỳ, có cuối kỳ)
2/ Copy cả định dạng và giá trị.
3/ Copy đến sheet "Du dau ky"
4/ Các lần sau, chạy macro thì sẽ tự động cập nhật số cuối kỳ tại sheet Tong hop theo KH thành số đầu kỳ của sheet Du dau ky.

em cảm ơn ạ