VBA：将数据复制到表中时出现错误 1004 合并单元格

目标是将一系列数据复制到预先存在的表中，该表首先删除旧数据。我有额外的代码，但这是处理表数据的代码的一部分。重要说明：我正在复制的范围不包含合并的单元格。我已经检查并仔细检查过。但是，如果重要的话，我正在粘贴的表格正下方有合并的单元格。

Sub updateData()
   Dim ws as worksheet, Tws as worksheet
   Dim tbl as listobject
   Set ws = thisworkbook.worksheets(1)
   Set Tws = thisworkbook.Sheets(2)
   Set tbl = Ws.ListObjects(1)

                        With tbl ' Deleting data from current table in the worksheet
                            If Not .DataBodyRange Is Nothing Then
                                .DataBodyRange.Delete
                            End If
                            .ListRows.Add
                        End With
                    fr = WorksheetFunction.Match("LookUpValue", Ws.Columns(1), 0) - 3 ' First row
                    fc = 1 ' First column
                    lc = Tws.Cells(fr, fc).End(xlToRight).Column ' Last column
                    lr = Tws.Cells(fr, fc).End(xlDown).Row - 3 ' Last row
                    Set NewData = Tws.Range(Tws.Cells(fr, fc), Tws.Cells(lr, lc))
                    NewData.Copy tbl.DataBodyRange(1, 1) ' WORKING CODE (overwrites merged cells)
                    Application.CutCopyMode = False
End sub

编辑：只是为了澄清我收到的错误是运行时错误“1004”：为此，所有合并的单元格都需要具有相同的大小

第二次编辑：感谢@siddarth routh，我有一个工作代码。我个人NewData.Copy tbl.DataBodyRange(1, 1)决定取消合并下面的单元格以在它们之间插入我的行并使用行

 NewData.Copy
 tbl.DataBodyRange(1, 1).PasteSpecial

保持格式而不是覆盖我的单元格。