thế này nhưng khi thực hiện chỉ đến dòng 101 là có dữ liệu còn từ dòng

Em làm thế này nhưng khi thực hiện chỉ đến dòng 101 là có dữ liệu, còn từ dòng 102 đến 106 ở file gốc có dữ liệu nhưng trong file chính hiện #N/A, không hiểu bị lỗi gì ạ?
Sub import()
'hien thi hop thoai
With Application.FileDialog(msoFileDialogFilePicker)
.Show
.AllowMultiSelect = True
.Title = "Chon file"
Dim i As Integer
For i = 1 To .SelectedItems.Count
'gan bien
Dim wbmain As Workbook
Set wbmain = ThisWorkbook
Dim wbpick As Workbook
Set wbpick = Workbooks.Open(.SelectedItems(i))
'xd dong cuoi main
Dim lrmain As Long
lrmain = wbmain.Sheets("Data_TienLuong").Range("A" & Rows.Count).End(xlUp).Row
'xd khoang cach pick
Dim frpick As Long
frpick = 6
Dim lrpick As Long
lrpick = wbpick.Sheets("Data_TienLuong").Range("A" & Rows.Count).End(xlUp).Row
Dim dpick As Long
dpick = lrpick - frpick + 1
'gan gia tri
wbmain.Sheets("Data_TienLuong").Range("A6" & ":BM" & lrmain + dpick).Value = _
wbpick.Sheets("Data_TienLuong").Range("A" & frpick & ":BM" & dpick).Value
'dong file
wbpick.Close savechanges:=False
Next i
End With
If wbmain.Sheets("Data_TienLuong").Range("A6").Value = "" Then
Exit Sub
Else
MsgBox ("Thanh Cong")
End If
End Sub