Выбрать | Скопируйте автофильтрованный диапазон с объединенными ячейками -> Вставить в А1 NewSheet

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

не обеспечивает решение - поскольку лист, с которого я копирую, имеетобъединенные ячейки.