excel中的标题被替换

Question

我正在粘贴Excel中的记录集中的数据。我已经手动将第一行命名为标题。现在我从第二行开始粘贴数据，但我的标题被第一行本身的数据替换。谁能猜到可能是什么问题？

lastrow = Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row + 1
With Worksheets("Sheet1")
    .Range("A2:DH" & lastrow).Cells.ClearContents
    .Cells(2, 1).CopyFromRecordset rs
End With

编辑：第一行和第二行相同。即标题被数据替换，该数据应该是第一行数据，而不是数据被拉出的情况。可能会提供更多关于可能出现问题的信息。