' Инициализация формы
Private Sub UserForm_Initialize()
    StartTime = Time
    
    pbProgressBar.Min = 0 - здесь вылетает на код ниже
    pbProgressBar.Max = 100
    pbProgressBar.Value = 0
    Call Update(0)
End Sub

'код где компилятор останавливается 
Application.Run (ThisWorkbook.Worksheets(FulfillmentEstimationWsName).PrintFulfillmentEstimation(IsYearFiltered, TargetYear, UseDates, Databank.SubSets, FileCases(), HideUnchanged, PreserveComments, NormalizeCA, UseCpark))

Sub read_record_data()
    Dim row_end_date As Double
    Dim end_date As Date
    Dim row_start_copy As Double
    Dim row_end_copy As Double
    
    row_end_date = Workbooks(name_books).Worksheets(well_number).Cells(Rows.Count, 1).End(xlUp).Row
    end_date = Format(Workbooks(name_books).Worksheets(well_number).Cells(row_end_date, 1), "m/d/yyyy h:mm")
    row_end_copy = ActiveWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    row_start_copy = ActiveWorkbook.Worksheets(1).Range("A2:A" & row_end_copy).Find(end_date).Row

column_MIN = Application.WorksheetFunction.Min(Worksheets(1).Range("B1083:E1083"))