tý ở nôi dung chương 7 phần 6 lấy nội dung từ sheet náy sang sheet khác Em

Chào Thầy, cho em hỏi tý: ở nôi dung chương 7 phần 6 lấy nội dung từ sheet náy sang sheet khác. Em có tạo 1 bảng nhập dữ liệu của khách hàng từ 1 sheet và lưu ở  1 sheet khác, theo như trên thì phàn này chỉ hướng dẫn nhập mà ko có hướng dẫn chỉnh sửa nội dung. Em có kham khảo 1 số ví dụ trên mạng và đã ứng dụng nhưng chưa được ở chỗ: em chọn Hàng để sửa (của 1 khách hàng nào đó) rồi chuyển dữ liệu qua sheet nhập liệu nhưng ko được, mong Thầy giúp em vs ạ!

    Dim DongCuoi As Long

    DongCuoi = Sheets("1.DanhSach_KH").Range("A" & Rows.Count).End(xlUp).Row

'LUU THONG TIN KHACH HANG

With Sheets("1.DanhSach_KH")

    .Range("A" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B2").Value

    .Range("B" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B3").Value

    .Range("C" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B4").Value

    .Range("D" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B5").Value

    .Range("E" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B6").Value

    .Range("F" & DongCuoi + 1).Value = Sheets("Them_Moi").Range("B7").Value

    End With

Sub Luu_Du_Lieu_Ket_Qua()

    Call Luu_Du_Lieu

    Call Xoa_Du_Lieu

    MsgBox "Luu du lieu thanh cong"

End Sub

Sub Lay_Noi_Dung_De_Sua()

    Dim a As Long

    a = ActiveCell.Row

    With Sheets("Them_Moi")

'Sua thong tin khach hang

    .Range("B2").Value = Sheets("1.DanhSach_KH").cell(a, 1).Value

    .Range("B3").Value = Sheets("1.DanhSach_KH").cell(a, 2).Value

    .Range("B4").Value = Sheets("1.DanhSach_KH").cell(a, 3).Value

    .Range("B5").Value = Sheets("1.DanhSach_KH").cell(a, 4).Value

    .Range("B6").Value = Sheets("1.DanhSach_KH").cell(a, 5).Value

    .Range("B7").Value = Sheets("1.DanhSach_KH").cell(a, 6).Value

End Sub