e viết đoạn code cho dữ liệu vào workbook tổng như sau nhưng ko chạy đcDim

workbooks("book2")
Workbooks("book4")
Không nên dùng trực tiếp như thế này.
Bạn nên đặt biến đại diện cho các workbook này, sau đó viết theo biến sẽ đỡ bị sai. Viết trực tiếp như thế không đúng.
Phải chỉ rõ book2.xlsx hay book2.xlsm? book2 này đã lưu hay chưa, hay mới khởi tạo. Nếu mới khởi tạo thì phải gán biết ngay thời điểm khởi tạo

Thưa thầy e đã sửa lại và chạy đc code này nhưng có phải nếu thêm dữ liệu vào book2 thì book4 bị lặp lại ko?

chú ý nếu chạy tiếp lệnh thì khi đó dòng cuối ở nơi nhận (book4) đã thay đổi rồi, do đó phải tính lại dòng cuối trước, sau đó mới thêm dữ liệu.
Vì vậy bạn chú ý thứ tự sắp xếp các dòng code. Hãy kiểm tra code chạy lần lượt với phím f8 để hiểu rõ hơn vấn đề này

Sub MergeWBs_02()
Workbooks("Book4").Sheets("Data").Range("A2:C4").Value = _
Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value
Dim LastRow_WB2 As Long
LastRow_WB2 = Workbooks("Book2").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Dim FirstRow_WB2 As Long
FirstRow_WB2 = 2
Dim Distance_WB2 As Long
Distane_WB2 = LastRow_WB2 - FirstRow_WB2 + 1
Dim LastRow_WB4 As Long
LastRow_WB4 = Workbooks("Book4").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Workbooks("Book4").Sheets("Data").Range("A" & LastRow_WB4 + 1 & ":C" & LastRow_WB4 + Distance_WB2).Value = _
Workbooks("Book2").Sheets("Sheet1").Range("A" & FirstRow_WB2 & ":C" & LastRow_WB2).Value
End Sub

Em viết code như hướng dẫn nhưng chạy code ra kết quả DongCuoi_WB4 bị sai. Kết quả chỉ ra Long, Thảo, Tuấn, Mai, chứ ko phải Long, Thảo, Linh, Tuấn, Mai.
Nhờ thầy xem giúp em ạ.
Và thầy viết giúp em code gán biến cho WB ạ, em lưu WB là code báo lỗi ạ.

Bạn xem lại tên Workbook, tên Sheet xem đã chính xác chưa nhé (so với file thực tế bạn đang làm).
Ngoài ra Workbook4 cần phải có sẵn dữ liệu (ít nhất là 1 dòng tiêu đề) thì mới xác định được dòng cuối, nếu chưa có dữ liệu thì sẽ bị lỗi.