[help] copy và paste vào dòng trống phía dưới với VBA

Chào các bạn, mình đang cần làm 1 file excel với mục đích thống kê bán hàng, đặc điểm của file có mấy yêu cầu sau:
- Do yếu tố về đơn giá thường xuyên thay đổi theo đơn giá nhà cung cấp nên mình muốn sau khi đơn hàng trong ngày được chốt thì toàn bộ số liệu của bảng tính 1 (table1) sẽ được copy và paste nối tiếp ở dòng trống dưới cùng của bảng tính 2 (table2) dưới dạng VALUE,

(xin lỗi vì diễn đàn ko cho tải file Excel lên nên mình đành in ra file png, các bạn giúp mình đoạn Code VBA vậy nhé:


Rất mong các bạn trên diễn đàn bạn nào thạo VBA lập giúp mình 1 hàm ở file đính kèm mình gửi với.
Rất cám ơn các bạn và chúc các bạn 1 năm mới vạn sự như ý!!!

TQChanh nói:

Macro của bạn đây, xin mời:

PHP:

Option Explicit
Sub Chép()
Dim Arr(), Sh As Worksheet
Dim Rws As Long, Dg As Long
3 Set Sh = ThisWorkbook.Worksheets("Table2")
Sheets("Table1").Select
5 Rws = [B2].CurrentRegion.Rows.Count
Arr() = [B2].Resize(Rws, 7).Value
7 Dg = Sh.[B65500].End(xlUp).Row + 1
Sh.Cells(Dg, "B").Resize(Rws, 7).Value = Arr()
End Sub

Ghi chú: Ở trang tính [Table1] ngoài cột [STT] ta có 7 cột dữ liệu

Chúc bạn thành công & vui vẻ!

Nhấn để mở rộng...

Dạ năm mới chúc bác và gia đình luôn vui vẻ hạnh phúc và gặp nhiều may mắn.

Nhg em copy đoạn code đó về và dán vào thì nó báo lỗi ạ, nếu được phiền bác tạo giúp em với ạ. Tks bác lần nữa.