Set Wb = Workbooks("BASA.xls")
with Wb.Sheets("SheetName")
    Temp = .Cells(.Rows.Count, 1).End(xlUp).Row
end with

=ЕСЛИОШИБКА(НАИБОЛЬШИЙ(ЕСЛИ(Лист1!$A$1:$D$34=N$18;Лист1!$A$2:$D$35);СТРОКА(N1));"")

Private Sub CommandButton1_Click()
    Me.Hide
    On Error Resume Next
    With Application: .EnableEvents = 0: .ScreenUpdating = 0
        With ActiveSheet.UsedRange
            Intersect(.Cells, .Offset(1)).Delete xlUp
        End With
        With ListBox1
            For i = 0 To .ListCount - 1
                If .Selected(i) Then
                    With ThisWorkbook.Sheets(.List(i)).UsedRange
                        Intersect(.Cells, .Offset(1)).Copy _
                            [A1].Offset(Cells(Rows.Count, 1).End(xlUp).Row)
                    End With
                End If
            Next
        End With
    .EnableEvents = 1: .ScreenUpdating = 1: End With
    Unload Me
End Sub
Private Sub UserForm_Initialize()
    Dim SH As Worksheet
    For Each SH In ThisWorkbook.Sheets
        If Not SH Is ActiveSheet Then Me.ListBox1.AddItem SH.Name
    Next
End Sub

gg1 = Format(ActiveSheet.Cells(1, 1), "0000")

// ==UserScript==
// @name         Kludge
// @match        http://www.excelworld.ru/*
// @grant        GM_addStyle
/*jshint multistr: true */
// ==/UserScript==

GM_addStyle (
'.switch, .switchActive,  .pagesInfo {\
    border: 1px solid rgb(169, 169, 169)!important;\
    display: table-cell!important;\
    min-width: 1.6em;\
    text-align: center;\
}\
.switches {\
    display: table;\
    border-collapse: collapse;\
}'
);

Sub Raschet()
    Dim i&, j&, r As Variant, v As Variant, a&
    Dim Inp1 As Range
    
    Set Inp1 = [Sens!C80]
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For a = 3 To 9
        Inp1 = Cells(13, a)
        i = 0
        For Each v In [Sens!B14:B20].Value
            [Sens!C81] = v
            Application.Calculate
            i = i + 1
            For Each r In Array(13, 47)
                For j = 0 To 20 Step 10
                    Cells(r + i, a + j) = [Sens!B1].Offset(r - 1, j)
    Next j, r, v, a
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Option Explicit
Sub Raschet()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Calc [Sens!C80], [Sens!C81], [Sens!B14:B20].Value, Array(13, 47)
    Calc [Sens!C81], [Sens!C82], [Sens!B23:B29].Value, Array(23, 57)
    Calc [Sens!C83], [Sens!C84], [Sens!B33:B39].Value, Array(33, 67)
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub
Sub Calc(ByRef r1 As Range, ByRef r2 As Range, arr1 As Variant, arr2 As Variant)
Dim a&, i&, j&, r As Variant, v As Variant
    For a = 3 To 9
        r1 = Cells(arr2(0), a)
        i = 0
        For Each v In arr1
            r2 = v
            Application.Calculate
            i = i + 1
            For Each r In arr2
                For j = 0 To 20 Step 10
                    Cells(r + i, a + j) = [Sens!B1].Offset(r - 1, j)
    Next j, r, v, a
    r1 = 1
End Sub

=СУММПРОИЗВ(ЕСЛИОШИБКА(ИНДЕКС(E3:E50;Ч(ИНДЕКС(ПОИСКПОЗ(N3:N18;A3:A50;);{0}))););O3:O18)

=СУММ((A3:A50=ТРАНСП(N3:N18))*E3:E50*Ч(ТРАНСП(O3:O18)))