Chẳng biết bạn đăng thế này có phạm quy không và mình thấy bạn thêm mỗi appication. Hic, Mình gợi ý bạn đoạn này vậy Sub import_TH_BB()
......
With sh
iLastRowReport = .Range("C" & Rows.Count).End(xlUp).Row
iNumberOfRowsToPaste = iLastRowReport - 7 + 1
data = .Range("C7:O" & iLastRowReport)
Set rTUYEN = .Range("AB7:AB" & iLastRowReport)
Set rLBH = .Range("AC7:AC" & iLastRowReport)
With master
iCurrentLastRow = .Range("C" & Rows.Count).End(xlUp).Row
iRowStartToPaste = iCurrentLastRow + 1
.Range("C" & iRowStartToPaste).Resize(UBound(data), UBound(data, 2)) = data
.Range("B" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rTUYEN.Value2
.Range("A" & iRowStartToPaste).Resize(iNumberOfRowsToPaste, 1) = rLBH.Value2
End With
End With