Сообщение об ошибке: после попытки удалить все строки после первой пустой ячейки

Question

Мне нужно обработать Excel, который включает 6 шагов.

1. Откройте файл .xls и удалите все разбиения
2. Удалите промежуточные итоги (выберите промежуточный итог в меню данных и нажмите'удалить все промежуточные итоги')
3. Заменить все пустые ячейки томов на ноль
4. Проверять тома на наличие отрицательных значений для каждого месяца и вычитать их из томов предыдущего месяца для этой записи.
5. Удалить все пустые строки и столбцы (т. Е. Справа и снизу от данных)
6. Выберите только ДАННЫЕ и отформатируйте ячейки в текст

Однако, когда я пытаюсьвыполните шаг 5. Я получаю сообщение об ошибке

«Ошибка времени выполнения« 1004 »: ошибка приложения или объекта»

Sub CDN_S()
    Dim dash As Range
    Cells.Select
    ActiveWindow.Split = False
    Worksheets("sheet1").Range("C1").RemoveSubtotal
    Range("E1048576").End(xlUp).Select
    Selection.Resize(1, 13).Select
    Range(Selection, "E1:Q1").Select
    Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, _
                      SearchFormat:=False, ReplaceFormat:=False
    Set dash = Selection.Find(what:=("*-*"))
    If Not dash Is Nothing Then
        MsgBox ("minus found, check data!")
        Stop
    Else
        MsgBox ("minus not found")
    End If
    Columns("R:R").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlToLeft
    Range("A1").End(xlDown).Offset(1).Resize _
        (ActiveSheet.UsedRange.Rows.Count).EntireRow.Delete
    MsgBox ("Completed")
End Sub

Спасибо