xem giúp đoạn code sau đang sai hay thiếu gì ạ (e gửi kèm đường link)đoạn

Chào bạn bạn xem code nhé

Option Explicit
Sub Gop_Du_Lieu()
'mo khoa sheet data
Sheets("Data_TienLuong").Unprotect Password:=1

' xac dinh sheet nao duoc chon
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "BL_Thang*" Then
'xac dinh dong dau, dong cuoi, khoang cach file chi tiet
Dim Dongdau_ws As Long, Dongcuoi_ws As Long, KhoangCach_ws As Long
Dongdau_ws = 8
Dongcuoi_ws = ws.Range("F" & Rows.Count).End(xlUp).Row
KhoangCach_ws = Dongcuoi_ws - Dongdau_ws + 1

'xac dinh dong cuoi file data
Dim DongCuoi_Data As Long
DongCuoi_Data = Sheets("Data_TienLuong").Range("F" & Rows.Count).End(xlUp).Row

'luu du lieu vo data gitihio sửa phần này
Sheets("Data_TienLuong").Range("A" & DongCuoi_Data + 1 & ":BM" & DongCuoi_Data + KhoangCach_ws).Value = _
ws.Range("A8" & ":BM" & Dongcuoi_ws).Value
End If
Next ws
'khoa sheet data lai
Sheets("Data_TienLuong").Protect
End Sub

dạ, cảm ơn thầy, e đã thấy lỗi sai trong code mình viết rồi ạ.

Chào bạn bạn cần tìm dòng cuối của dữ liệu của mình là ở đâu và ghi vào đó là được nhé.