Sub Zalivka() 'Заливка
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"
    With ShSales.Range("tabl_logbook")
        Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = 15921906  'Заливка открытых строк
    End With
End Sub

Sub NoZalivka() 'Нет заливки
    Set ShSales = ThisWorkbook.Worksheets("log_book")       'Лист "log_book"
    With ShSales.Range("tabl_logbook")
        Intersect(.Columns("A:K"), .Cells).SpecialCells(12).Interior.Color = xlNone  'Снять заливку открытых строк
    End With
End Sub

For i = 1 to 10
    Range("Табл").Columns(i).Select
    stop
next

5.1358359214422811520745838439255742289090748041335×10[sup]1625005[/sup]

=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(СТРОЧН(ЛЕВБ(ПСТР(D$3;ПОИСК(C5;D$3);9);ПОИСК("-";ПСТР(D$3;ПОИСК(C5;D$3);9))-1));СТРОЧН(C5&0);ЛЕВБ(1/2;2));C5;)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ar As Range, arr As Variant
    On Error Resume Next
    'при любых изменениях размеров образцов "Площадь образца ="
    With Me.UsedRange.Columns("A:D")
        For Each ar In Intersect(.Offset(5), .Cells, Target).Areas
            With ar.Offset(, .Column - ar.Column).Resize(, 5)
                arr = .Value
                For i = 1 To .Rows.Count
                    arr(i, 5) = Round(arr(i, 1) * arr(i, 3) / 100, 0)
                Next
                Application.EnableEvents = 0
                .Value = arr
                Application.EnableEvents = 1
            End With
        Next
    End With
End Sub

Private Sub UserForm_Terminate()
    ufrmMain.Show
End Sub

Private Sub CommandButton_spSotrOtdels_Click()
    Me.Hide    ' скрываем главную форму
    ufSotrOtdel.Show   ' открываем форму работы со справочниками
    Me.Show    'после закрытия формы работы со справочниками показать главную форму
End Sub

    With Range("Spisok[#All]")
        .ListObject.Resize .Resize(.Rows.Count + 1)
    End With

=--ИЛИ(ВЫБОР({1;2};$H4&I$3;I$3&$H4)=$A$3:$A$15&$B$3:$B$15)

    Dim r As Range, b As Boolean
    With Range("Книга2!Spisok[#All]")
        Set r = .Resize(.Rows.Count + 1)
        With .ListObject
            b = .ShowTotals
            .ShowTotals = False
            .Resize r
            .ShowTotals = b
        End With
    End With