选择|使用合并的单元格复制自动过滤的范围->粘贴到NewSheet的A1

Question

关于以下内容，我需要帮助-过滤动态大小的行数，然后选择可见的单元格并将其值粘贴或插入到新工作表中原始位置的位置。

我尝试了各种不同的方法，例如Copy，AutoFilter.Range，但是由于我已经合并了工作表中的单元格，因此无法获得正确的副本。

Sub HondaFilter()
Dim MainSheetOEE As Worksheet
Set MainSheetOEE = Worksheets("OEE Report")
Dim HondaOEE As Worksheet
Dim FilterRange As Range
MainSheetOEE.AutoFilterMode = False
With MainSheetOEE.Range("C:C")
    .AutoFilter Field:=1, _
    Criteria1:=Array("Civic", "CRV", "Pilot", "MDX", "Mini Van", "Ridgeline"), _
    Operator:=xlFilterValues
End With
Set HondaOEE = ActiveWorkbook.Worksheets("HondaOEE")
Set DataPasteLocation = HondaOEE.Range("A1")
MainSheetOEE.AutoFilter.Range.Copy Destination:=DataPasteLocation
End Sub
Runtime Error: 1004 - We can't do that to a merged cell

有没有一种方法可以将可见行的值发送到新表？格式化不是我以后可以重新格式化的问题-干杯

编辑---我应该记录一下

MainSheetOEE.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy

不提供解决方案-因为我要复制的工作表已合并单元格。