xem giúp em đoạn code của em đúng chưa ạ hệ thống báo lỗi "Can not do to

Thầy ơi xem giúp em đoạn code của em đúng chưa ạ, hệ thống báo lỗi "Can not do to a Merge":

Sub BaiTap_ThucHanh()

'Buoc 1: tim dong cuoi

    Dim DongCuoi As Long

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

    Sheets("Data").Range("F1").Value = DongCuoi

'Buoc 2: luu noi dung tuong ung

    Sheets("Data").Range("A" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A3:C3").Value

    Sheets("Data").Range("B" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E3").Value

    Sheets("Data").Range("C" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("A6").Value

    Sheets("Data").Range("D" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("C6").Value

    Sheets("Data").Range("E" & DongCuoi + 1).Value = Sheets("ThemMoi").Range("E6").Value

'Buoc 3: Xoa noi dung

    Sheets("ThemMoi").Range("A3, A6").ClearContents

'Buoc 4: Message Box

    MsgBox "Luu du lieu thanh cong"

End Sub