Sub Luu_Du_Lieu()
Dim DongCuoi As Long
DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("Them moi").Range("A3").Value
Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("Them moi").Range("E3").Value
Sheets("Data").Range("C" & DongCuoi + 1).Value = Sheets("Them moi").Range("A6").Value
Sheets("Data").Range("D" & DongCuoi + 1).Value = Sheets("Them moi").Range("C6").Value
Sheets("Data").Range("E" & DongCuoi + 1).Value = Sheets("Them moi").Range("E6").Value
End Sub
Sub Xoa_Du_Lieu()
Sheets("Them moi").Range("A3:C3,A6").ClearContents
End Sub
Sub Luu_Du_Lieu_Ket_Qua()
Call Luu_Du_Lieu
Call_Xoa_Du_Lieu
MsgBox "Luu Thanh Cong"
End Sub