Sub Притоки()               
    Dim ws                    As Worksheet               
    Dim wb                    As Workbook               
    Dim listObj               As ListObject               
                
    For Each ws In ActiveWorkbook.Worksheets               
        For Each listObj In ws.ListObjects               
            If listObj.ShowHeaders Then               
                listObj.AutoFilter.ShowAllData               
                listObj.Sort.SortFields.Clear               
            End If               
        Next listObj               
    Next ws         ' сняли фильтры если они есть, если их нет обнулили автофильтр               
                     
Sheets("Выгрузка_все_фонды").Select   'активировали нужный лист               
  ActiveSheet.ListObjects("Выгрузки_НРД_xml").Range.AutoFilter Field:=12, _               
        Criteria1:="<>0", Operator:=xlFilterValues   ' фильтранули нули               
           Range("L2").Select               
            Range(Selection, Selection.End(xlDown)).Select   ' выделили весь отфильтрованный столбец до конца               
        Selection.Copy               ' скопировали содержимое               
Set wb = GetObject("B:\Company\Книга.xlsx")
wb.Windows(1).Visible = True
Workbooks.Open Filename:="B:\Company\Книга.xlsx"
End Sub