Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets("Лист1").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Лист2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Лист3").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("ИТОГИ").Select
End Sub

Источник = Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){[Name="LOCATION_ОБЩИЙ"]}[Content]{0}[LOCATION_ОБЩИЙ]), null, true),
    #"Лист" = Источник{[Name="10"]}[Data],
    #"Другие удаленные столбцы" = Table.SelectColumns(#"Лист",{"Column1", "Column2", "Column4", "Column5", "Column11"}),

Sub Filter_po_vudeleniy() ' фильтр по выделению
    Dim filterRange As Range, filterValues() As Variant, cl As Range, i As Integer, rng As Range
    Set filterRange = Range("A1")
    Set rng = Selection '
    If rng.Cells.Count > 1 Then Set rng = rng.SpecialCells(xlCellTypeVisible)
    ReDim filterValues(1 To rng.Count)
    i = 0
    For Each cl In rng
        i = i + 1
        filterValues(i) = cl.Text
    Next cl
    Dim ColNumber As Integer
    ColNumber = rng.Column - filterRange.Column + 1 ' Val(InputBox("COLUMN Number"))
    filterRange.autofilter Field:=ColNumber, Criteria1:=filterValues, Operator:=xlFilterValues
End Sub

Function test(chislo_1 As Double, chislo_2 As String)
test = Round(chislo_1 + chislo_2, 1) 
End Function