1004 : ошибка, определяемая приложением или объектом, в excel VBA

---

У меня есть очень большой Макрокод, который будет выполнять одну из следующих функций.
У нас есть шаблоны, которые будут описывать, как будет сгенерирован отчет и приведенный ниже фрагмент кода, в котором он получает ошибку. Функциональность, которую он выполняет, основана на определении шаблона, он будет извлекать данные и вставлять их в новый лист.

With objCurrentWorksheet
            If intTall > 1 Then
                ActiveWindow.View = xlPageBreakPreview
                    i = 1
                    .PageSetup.FitToPagesTall = False
                    .ResetAllPageBreaks
                    Do While i <= .HPageBreaks.Count
                        Set objCell = .Range("B" & .HPageBreaks(i).Location.Row - 1)
                        Do Until objCell.Height < 15
                            Set objCell = .Range("B" & objCell.Row - 1)
                        Loop
                        Set objCell = .Range("B" & objCell.Row + 1)
                        >>> It is throwing the error here
                        .HPageBreaks.Add Before:=objCell
                        i = i + 1
                    Loop
                ActiveWindow.View = xlNormalView
            End If
'            End If
        End With

    finishTemplate = True
    Exit Function

Что я уже пробовал:

Я пытался изменить определения шаблонов, но это не сработало

---