Code:
Sub tonghop()
Set wb = ActiveWorkbook
Set ws = ActiveSheet
ngay = ws.Name
lrow = ws.Range("E" & Rows.Count).End(xlUp).Row
fileTH = Application.GetOpenFilename(filefilter:="Excel Files (.xls),.xlsx", MultiSelect:=False)
Set wb1 = Workbooks.Open(fileTH, UpdateLinks:=True, Editable:=True)
Set ws1 = wb1.Worksheets(2)
lrow1 = ws1.Range("F" & Rows.Count).End(xlUp).Row
ws1.Range(lrow1 + 1 & ":" & lrow1 + lrow - 7).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ws1.Range("A" & lrow1 + 1).Value = DateSerial(Mid(ngay, 7, 4), Mid(ngay, 4, 2), Mid(ngay, 1, 2))
For i = 8 To lrow
ws1.Range("B" & lrow1 + 1).Value = ws.Range("C" & i).Value
ws1.Range("C" & lrow1 + 1).Value = ws.Range("D" & i).Value
ws1.Range("D" & lrow1 + 1).Value = ws.Range("E" & i).Value
ws1.Range("E" & lrow1 + 1).Value = ws.Range("F" & i).Value
ws1.Range("F" & lrow1 + 1).Value = ws.Range("G" & i).Value
ws1.Range("H" & lrow1 + 1).Value = ws.Range("I" & i).Value
lrow1 = lrow1 + 1
Next
wb1.Close SaveChanges:=True
Set wb = Nothing
Set wb1 = Nothing
Set ws = Nothing
Set ws1 = Nothing
MsgBox ("Cap nhat thanh cong")
End Sub