cho e sao code e lập như v mà khi chạy thì phần nội dung kia của e bị xóa mất

Chào bạn bạn bạn đẩy file lên giúp gitiho được không? 

https://drive.google.com/drive/folder..._

chào bạn bạn gửi lại link giúp gitiho nhé.

https://drive.google.com/drive/folder..._

link cuối cùng thầy ạ 

Bạn có gitiho xin quyền truy cập nhé.

VÂNG Ạ

e chưa thấy báo quyền truy cập ạ 

Bạn cứ để chế độ mọi quyền là được vì gitiho có nhiều thầy có thể hỗ trợ bạn bạn nhé.

https://docs.google.com/spreadsheets/...

e chuyển chế độ r ạ. thầy xem đường link trên đã truy cập vào được chưa ạ ?

Chào bạn bạn tách phần xoá ra như sau nhé

Sub themkhachhang()
Dim i As Long
i = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
Sheet1.Range("B" & i + 1).Value = Sheet1.Range("C6").Value
Sheet1.Range("C" & i + 1).Value = Sheet1.Range("C7").Value
Sheet1.Range("D" & i + 1).Value = Sheet1.Range("C8").Value
Sheet1.Range("E" & i + 1).Value = Sheet1.Range("F6").Value
Sheet1.Range("F" & i + 1).Value = Sheet1.Range("F7").Value
Sheet1.Range("G" & i + 1).Value = Sheet1.Range("F8").Value
Sheet1.Range("C6:C8").ClearContents
Sheet1.Range("F6:F8").ClearContents
End Sub

E đã thực hiện được r ạ.  e cám ơn thầy nhé, làm phiền thầy mở link nhiều lần quá ạ!

Chúc bạn học tốt cùng gitiho, cảm ơn bạn đã tin tưởng và ủng hộ gitiho