Sub sbShow__ufmRefreshData()
   ufmRefreshData.Show 0
End Sub

Sub RefreshAll()
    Dim dblTimeAdd '
    dblTimeAdd = TimeValue("02:00") 'прибавление времени
    Dim llastr As Long, arr, x
    Dim arr2, xx
    Dim rr As Range, lс As Long
    Dim asSp, s As String, s1 As String, s2 As String
    Dim wsStat As Worksheet
    
    '----------------------------------
    'сверка на совпадение идентификатора
    '----------------------------------
    
    Set wsStat = Sheet1
    With Sheet2 'Aux
        llastr = .Cells(.Rows.Count, 2).End(xlUp).Row
        If llastr < 4 Then Exit Sub
        
        CheckDate
        arr = .Cells(4, 2).Resize(llastr - 3, 1)
        If Not IsArray(arr) Then
            ReDim arr(1 To 1, 1 To 1)
            arr(1, 1) = .Cells(4, 2)
        End If
    End With

    Application.ScreenUpdating = 0
    'Stats
    With shRes '
        llastr = .Cells(.Rows.Count, 1).End(xlUp).Row
        If llastr >= 2 Then
            .Cells(2, 1).Resize(llastr - 1, 1).EntireRow.Value = Empty
        End If
    End With
    llastr = 1
    Sheet1.Activate
    For Each x In arr
        wsStat.Range("B3").Value = x
        Call Sheet1.refresh_select  -------- Здесь ошибку выдает
        'дополняем лист "Должно так выходить"
        Set rr = wsStat.Range("U35:X49")
        For lr = 1 To rr.Rows.Count
            s = rr.Cells(lr, 2).Value
            If s <> "" Then
                asSp = Split(s, " - ", 2)
                If UBound(asSp) > 0 Then
                    arr2 = wsStat.Range("Q6:Q36").Value
                    s1 = LCase(Trim(asSp(0)))
                    s2 = LCase(Trim(asSp(1)))
                    For Each xx In arr2
                        If LCase(Trim(xx)) = s1 Then
                            wsStat.Range("C7").Value = xx
                        End If
                        If LCase(Trim(xx)) = s2 Then
                            wsStat.Range("D7").Value = xx
                        End If
                    Next
                    
                    'Call Sheet1.refresh_teams
                    Application.Calculate
                    llastr = llastr + 1
                    shRes.Cells(llastr, 1).Value = x
                    shRes.Cells(llastr, 2).Value = rr.Cells(lr, 1).Value
                    shRes.Cells(llastr, 3).Value = s
                    shRes.Cells(llastr, 4).Value = rr.Cells(lr, 3).Value + dblTimeAdd
                    shRes.Cells(llastr, 5).Resize(, 4).Value = wsStat.Range("J85").Resize(, 4).Value
                    shRes.Cells(llastr, 10).Value = wsStat.Range("I1").Value
                    shRes.Cells(llastr, 11).Value = wsStat.Range("I3").Value
                    shRes.Cells(llastr, 12).Value = wsStat.Range("I2").Value
                    shRes.Cells(llastr, 10).Resize(, 3).NumberFormat = "0.00%"
                    shRes.Cells(llastr, 10).Resize(, 3).Font.Bold = True
                    shRes.Cells(llastr, 9).Value = wsStat.Range("l84").Value
                    shRes.Cells(llastr, 24).Value = wsStat.Range("f24").Value
                    shRes.Cells(llastr, 21).Value = wsStat.Range("E1").Value
                    shRes.Cells(llastr, 23).Value = wsStat.Range("H2").Value
                    shRes.Cells(llastr, 25).Value = wsStat.Range("j7").Value
                    shRes.Cells(llastr, 26).Value = wsStat.Range("k7").Value
                    shRes.Cells(llastr, 27).Value = wsStat.Range("l7").Value
                    shRes.Cells(llastr, 28).Value = wsStat.Range("m7").Value
                    shRes.Cells(llastr, 29).Value = wsStat.Range("n7").Value
                    shRes.Cells(llastr, 22).Value = wsStat.Range("H1").Value
                    shRes.Cells(llastr, 30).Value = wsStat.Range("A75").Value
                    shRes.Cells(llastr, 31).Value = wsStat.Range("B75").Value
                    shRes.Cells(llastr, 32).Value = wsStat.Range("c75").Value
                    shRes.Cells(llastr, 33).Value = wsStat.Range("d75").Value
                    shRes.Cells(llastr, 34).Value = wsStat.Range("e11").Value
                    shRes.Cells(llastr, 35).Value = wsStat.Range("e12").Value
                    shRes.Cells(llastr, 13).Value = wsStat.Range("Q2").Value
                    shRes.Cells(llastr, 14).Value = wsStat.Range("Q3").Value
                    shRes.Cells(llastr, 36).Value = wsStat.Range("E75").Value
                    shRes.Cells(llastr, 37).Value = wsStat.Range("F75").Value
                    shRes.Cells(llastr, 38).Value = wsStat.Range("g75").Value
                    shRes.Cells(llastr, 39).Value = wsStat.Range("J75").Value
                    shRes.Cells(llastr, 40).Value = wsStat.Range("K75").Value
                    shRes.Cells(llastr, 41).Value = wsStat.Range("L75").Value
                    shRes.Cells(llastr, 15).Value = wsStat.Range("M75").Value
                    shRes.Cells(llastr, 16).Value = wsStat.Range("N75").Value
                    shRes.Cells(llastr, 17).Value = wsStat.Range("O75").Value
                    shRes.Cells(llastr, 19).Value = wsStat.Range("P75").Value
                    shRes.Cells(llastr, 18).Value = wsStat.Range("q75").Value
                    shRes.Cells(llastr, 20).Value = wsStat.Range("R75").Value
                    shRes.Cells(llastr, 42).Value = wsStat.Range("H26").Value
                    shRes.Cells(llastr, 43).Value = wsStat.Range("K26").Value
                    shRes.Cells(llastr, 44).Value = wsStat.Range("i26").Value
                    shRes.Cells(llastr, 45).Value = wsStat.Range("l26").Value
                    shRes.Cells(llastr, 46).Value = wsStat.Range("H27").Value
                    shRes.Cells(llastr, 47).Value = wsStat.Range("K27").Value
                    shRes.Cells(llastr, 48).Value = wsStat.Range("i27").Value
                    shRes.Cells(llastr, 49).Value = wsStat.Range("l27").Value
                    shRes.Cells(llastr, 15).Resize(, 2).Calculate
                    shRes.Cells(llastr, 15).Resize(, 2).Value = shRes.Cells(llastr, 15).Resize(, 2).Value
                End If
            End If
        Next
    Next
    shRes.Activate
    Application.ScreenUpdating = 1
End Sub

Function CheckDate()
'ММ/ДД/ГГГГ
    If Date > #12/31/2100# Then
        MsgBox " ", vbCritical, "ВАЖНО"
        End
    End If
End Function

Sub refresh_select()
    Call CommandButton21_Click