Возникли проблемы с переносом объединенного листа в массив

Question

Отчет, который я вытащил, ужасно настроен, и мои попытки его исправить не увенчались успехом.

Я сделал достаточно много, но разобрал все ячейки в используемом диапазоне.довольно сложно, потому что, по какой-то причине, когда отчет конвертируется, он сообщает о себе как о 29 000 строк данных (на самом деле ~ 850).

Мой обходной путь состоял в том, чтобы просто перетащить таблицу в массив, думая, что все ячейки будут объединены / воспроизведены правильно.Вместо этого массив, кажется, вырезает целые столбцы данных.

Есть ли эффективный способ исправить это?

Пожалуйста, найдите мой текущий код ниже.

If wbLoop.Name = "Report.xlsx" Then

        If wbLoop.Sheets(1).Cells(1, 1).Value2 = "" Then wbLoop.Sheets(1).Cells(1, 1).EntireColumn.Delete

        Do Until wbLoop.Sheets(1).Cells(1, 1).Value2 = "Finance1"
            wbLoop.Sheets(1).Cells(1, 1).EntireRow.Delete
        Loop

        arrReport() = wbLoop.Worksheets("Report").UsedRange.Value2