Code cập nhật dữ liệu

[NH_DK]

A/C viết dùm em code cập nhật dữ liệu cho file đính kèm này của em nhé!

 

[concogia]

A/C viết dùm em code cập nhật dữ liệu cho file đính kèm này của em nhé!

Thử cai này xem

Sub AutoShape1_Click()
    Range("b3:b5").Copy
    Sheets("CAP_NHAT").[A5000].End(xlUp).Offset(1, 0).PasteSpecial , Transpose:=True
    Range("b3:b5").ClearContents
End Sub

Thân