Ошибка выполнения 1004 Вы не можете вставить это здесь

Question

Мой код работал в течение первых 800 итераций (он выполняется через папку с примерно 4000 файлами), и теперь он выдает эту ошибку

"Ошибка времени выполнения" 1004 ": Вы можете" Вставьте это здесь, потому что область Копирование и область вставки не имеют одинаковый размер. Выберите только одну ячейку в области вставки или область того же размера и попробуйте вставить снова. "

Это мой код: (только часть, относящаяся к ошибке)

With sht1
        With .Cells(1, 1).CurrentRegion
            With .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
                If CBool(Application.Subtotal(103, .Columns(1))) Then
                    .Cells.Copy Destination:=.Cells(.Rows.Count + 1, 1)
                End If
                .AutoFilter
                .Cells(1, 1).Resize(.Rows.Count, 1).EntireRow.Delete
            End With
        End With
    End With

Ошибка в этой строке:

.Cells.Copy Destination:=.Cells(.Rows.Count + 1, 1)

Answer 1

Оказывается, проблема в том, что Excel допускает максимум 1048 576 строк, и я пытался вставить их ниже.

Чтобы обойти ограничения и ускорить мой код, я теперь использую PowerQuery для импортировать и фильтровать данные вниз.