Private Sub Worksheet_Activate()
Dim i As Long, fR As Long, lR As Long, Rws As Long
Application.ScreenUpdating = False
[2:65000].Delete 'Xoa du lieu hien co
Sheets(Array("TONGHOP", "Ref")).Move Before:=Sheets(1) 'Di chuyen sheet len dau
For i = 3 To Sheets.Count 'Lam viec voi sheet thu 3 tro di (tru sheet TONGHOP va Ref)
lR = Sheets(i).[A65000].End(xlUp).Row 'Xac dinh dong cuoi chua du lieu
If lR > 1 Then 'Neu co du lieu thi thuc hien
fR = 2 'Xac dinh dong dau cua sheet i
Do While Sheets(i).Cells(fR, 1) = ""
fR = fR + 1 'Xac dinh dong dau chua du lieu cua sheet i
Loop
Rws = lR - fR + 1 'So dong du lieu cua sheet i
[A65000].End(xlUp).Offset(1).Resize(Rws, 18).Value = Sheets(i).Cells(fR, 1).Resize(Rws, 18).Value 'Copy gia tri qua sheet TONGHOP
End If
Next
ActiveSheet.ListObjects("TongHop").Resize Range("A1:R" & [A65000].End(xlUp).Row) 'Mo rong Table TongHop
Application.ScreenUpdating = True
End Sub