Option ExplicitSub import_data()
Dim master As Worksheet, sh As Worksheet
Dim wk As Workbook
Dim iFileNum As Integer, iLastRowReport As Integer, iNumberOfRowsToPaste As Integer
Dim strFileName As String
Dim rShThua As Range, rTenChu As Range, rDiaChiThuaDat As Range, rDiaChiCSD As Range, rMDSD As Range, rDientich As Range
Dim rDienTichThuHoi As Range, rToBanDo As Range, rDTMuonTam As Range
Dim iCurrentLastRow As Integer, iRowStartToPaste As Integer
Set master = ActiveWorkbook.Sheets("thongke")
Set sh = ActiveWorkbook.Sheets("sheet1")
With master
iLastRowReport = .Range("A" & Rows.Count).End(xlUp).Row
iNumberOfRowsToPaste = iLastRowReport - 6 + 1
Set rShThua = .Range("F6:f" & iLastRowReport)
Set rTenChu = .Range("b6:b" & iLastRowReport)
Set rDiaChiThuaDat = .Range("d6:d" & iLastRowReport)
Set rDiaChiCSD = .Range("c6:c" & iLastRowReport)
Set rMDSD = .Range("H6:H" & iLastRowReport)
Set rDientich = .Range("g6:g" & iLastRowReport)
Set rDienTichThuHoi = .Range("I6:i" & iLastRowReport)
Set rToBanDo = .Range("e6:e" & iLastRowReport)
With sh
iCurrentLastRow = .Range("A" & Rows.Count).End(xlUp).Row
iRowStartToPaste = iCurrentLastRow + 1
.Range("A" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rShThua.Value2
.Range("B" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rTenChu.Value2
.Range("D" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rDiaChiThuaDat.Value2
.Range("E" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rDiaChiCSD.Value2
.Range("F" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rMDSD.Value2
.Range("g" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rDientich.Value2
.Range("i" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rDienTichThuHoi.Value2
.Range("n" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rToBanDo.Value2
End With
End With
End Sub