cho 2 là e muốn viết tiếp dòng code đưa wb 3 vao wb 4 nhưng kêt quả

Thầy cho 2 hỏi là e muốn viết tiếp dòng code đưa wb 3 vao wb 4 nhưng kêt quả hiện lên bị mất dữ liệu đã đưa vào trc đó của wb 2. Dòng code này đang sai ở đâu ạ

Sub LayDuLieu_03()

Workbooks("Book4").Sheets("Data").Range("A2:C4").Value = _

Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value

'Xac dinh dong cuoi cua wb2

Dim DongCuoi_Wb2 As Long

    DongCuoi_Wb2 = Workbooks("Book2").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

'Xac dinh khoang cach cua wb2

    'Khoang cach= Dong cuoi wb2 - Dong dau wb2

Dim DongDau_Wb2 As Long

    DongDau_Wb2 = 2

Dim KhoangCach_Wb2 As Long

    KhoangCach_Wb2 = DongCuoi_Wb2 - DongDau_Wb2 + 1

'Xac dinh dong cuoi cua wb4 => La diem bat dau

Dim DongCuoi_Wb4 As Long

    DongCuoi_Wb4 = Workbooks("Book4").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

'Pham vi wb4= Khoang cach

Workbooks("Book4").Sheets("Data").Range("A" & DongCuoi_Wb4 + 1 & ":C" & DongCuoi_Wb4 + KhoangCach_Wb2).Value = _

Workbooks("Book2").Sheets("Sheet1").Range("A" & DongDau_Wb2 & ":C" & DongCuoi_Wb2).Value

Dim DongCuoi_Wb3 As Long

    DongCuoi_Wb3 = Workbooks("Book3").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row

'Xac dinh khoang cach cua wb3

    'Khoang cach= Dong cuoi wb3 - Dong dau wb3

Dim DongDau_Wb3 As Long

    DongDau_Wb3 = 2

Dim KhoangCach_Wb3 As Long

    KhoangCach_Wb3 = DongCuoi_Wb3 - DongDau_Wb3 + 1

'Gop du lieu tu Wb3 vao Wb4

Workbooks("Book4").Sheets("Data").Range("A" & DongCuoi_Wb4 + 1 & ":C" & DongCuoi_Wb4 + KhoangCach_Wb3).Value = _

Workbooks("Book3").Sheets("Sheet1").Range("A" & DongDau_Wb3 & ":C" & DongCuoi_Wb3).Value

End Sub