Insert Copied Cells bị lỗi (1 người xem)

[xuanquy1188]

Mình viết hảm Coppy là và Insert Copied Cells. nhiều lúc nó chạy ngon lành, có khi lại bị báo lỗi. Như hình phía dưới.



Hàm mình viết là:

'Coppy S1

Sheets(S1).Activate​

a1 = Range("A1").Value​

a2 = Range("A2").Value​

ActiveSheet.Range(Cells(8, 1), Cells(a1 + 1, 13)).Select​

Selection.Copy​

'Insert sang S2

Sheets(S2).Activate​

Range("A8").Select​

Selection.Insert Shift:=xlDown​

Các bạn biết cách sửa không giúp mình với. Thanks!