let    Источник = Excel.CurrentWorkbook(){[Name="Т"]}[Content],
    ListOfTypes = Table.ToRows(
        Table.TransformColumns(
            Table.Schema(Table.SelectColumns(  табValueType , Table.ColumnNames( Источник ), MissingField.Ignore))[[Name],[TypeName]], 
            {{"TypeName", (x)=>Expression.Evaluate(x,#shared), Type.Type}})),
    ChangedType = Table.TransformColumnTypes(Источник,ListOfTypes)
in
    ChangedType

= Table.TransformColumnTypes(РазвернутыСтолбцы, List.Transform(РазвернутыСтолбцы, Value.Type(табValueType)))

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False
Application.EnableCancelKey = xlDisabled
Application.EnableEvents = False
Cancel = True
    
    Dim fName As Variant
    Dim FileFormatValue As Long

    With Application
        fName = .GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:=" Excel Binary Workbook (*.xlsb), *.xlsb", FilterIndex:=1, Title:="Save as .xlsb")
    End With

    ' Find the correct FileFormat that matches the choice
    ' in the "Save as type" list.
    Select Case getExtension(fName)
        Case "xlsb": FileFormatValue = 50 'xlExcel12 '50
        Case Else: FileFormatValue = 50
    End Select

    If fName = False Then GoTo NotSaved ' When user selects Cancel.

    On Error Resume Next
    'Exit Sub

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs fName, FileFormat:=FileFormatValue, CreateBackup:=False

'DoEvents
    If Err.Number <> 0 Then
        On Error GoTo 0
        GoTo NotSaved
    Else
        On Error GoTo 0
        'MsgBox "Project successfully saved.", vbInformation ' Exit Sub '
    End If
        
        
Application.EnableCancelKey = xlInterrupt
    Exit Sub '

NotSaved:
    
    'MsgBox "Project Not Saved!", vbExclamation ' Exit Sub '

    ActiveWorkbook.Activate
Application.EnableCancelKey = xlInterrupt
Application.DisplayAlerts = True
Application.EnableEvents = True

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableCancelKey = xlDisabled
Application.EnableEvents = False
    Dim fName As Variant
    Dim FileFormatValue As Long

    With Application
        fName = .GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:=" Excel Binary Workbook (*.xlsb), *.xlsb", FilterIndex:=1, Title:="Save as .xlsb")
    End With

    ' Find the correct FileFormat that matches the choice
    ' in the "Save as type" list.
    Select Case getExtension(fName)
        Case "xlsb": FileFormatValue = 50 'xlExcel12 '50
        Case Else: FileFormatValue = 50
    End Select

    If fName = False Then GoTo NotSaved ' When user selects Cancel.

    On Error Resume Next
    'Exit Sub

ActiveWorkbook.SaveAs fName, FileFormat:=FileFormatValue, CreateBackup:=False

'DoEvents
    If Err.Number <> 0 Then
        On Error GoTo 0
        GoTo NotSaved
    Else
        On Error GoTo 0
        'MsgBox "Project successfully saved.", vbInformation ' Exit Sub '
    End If
        
        
Application.EnableCancelKey = xlInterrupt
    Exit Sub '

NotSaved:
    
    'MsgBox "Project Not Saved!", vbExclamation ' Exit Sub '

    ActiveWorkbook.Activate
Application.EnableCancelKey = xlInterrupt
Application.EnableEvents = True
End Sub

Function getExtension(ByVal fName As String) As String
    getExtension = LCase(Right(fName, Len(fName) - InStrRev(fName, ".")))
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
    Dim fName As Variant
    Dim FileFormatValue As Long

    With Application
        fName = .GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, FileFilter:=" Excel Binary Workbook (*.xlsb), *.xlsb", FilterIndex:=1, Title:="Save as .xlsb")
    End With

    ' Find the correct FileFormat that matches the choice
    ' in the "Save as type" list.
    Select Case getExtension(fName)
        Case "xlsb": FileFormatValue = 50
        Case Else: FileFormatValue = 0
    End Select

    If fName = False Then GoTo NotSaved ' When user selects Cancel.

    On Error Resume Next
    'Exit Sub
    ActiveWorkbook.SaveAs fName, FileFormat:=FileFormatValue, CreateBackup:=False

    If Err.Number <> 0 Then
        On Error GoTo 0
        GoTo NotSaved
    Else
        On Error GoTo 0
        Exit Sub 'MsgBox "Project successfully saved.", vbInformation
    End If
    
    Exit Sub '

NotSaved:    
    Exit Sub 'MsgBox "Project Not Saved!", vbExclamation
End Sub

Sub FindDuplicates()

         ' Declare ws as a worksheet object variable.
         Dim ws As Worksheet


Dim Dict As Object, aa As Range, arr()
Set Dict = CreateObject("Scripting.Dictionary")
         
         ' Loop through all of the worksheets in the active workbook.
         For Each ws In Worksheets
For Each aa In ws.Range("H2:I60000") ' <= 2. здесь был жестко прописан Sheets(1). , замененный на ws.
If aa <> "Сводная" Then
  If Len(aa.Value) > 0 Then
    If Not Dict.exists(aa.Value) Then
      Dict.Add aa.Value, 1
    Else
      Dict.Item(aa.Value) = Dict.Item(aa.Value) + 1
    End If
  End If
End If
Next
Next


On Error Resume Next
Set aa = Application.InputBox("Выберите ячейку для вывода результата", , , , , , , 8)
If aa <> "Сводная" Then
If Err.Number > 0 Then Set aa = [AA1]
On Error GoTo 0
If aa.Cells.Count > 1 Then Set aa = Range(Left(aa.Address, InStr(":", aa.Address) - 1))
aa.Resize(Dict.Count) = Application.Transpose(Dict.keys)  ' <= 1. здесь приводилась ошибка пустого словаря
aa.Offset(0, 1).Resize(Dict.Count) = Application.Transpose(Dict.items)
End If

End Sub

    Dim ВыкладкаФайлы As Variant
           
Sheets("Генератор").Select
          
lLastRow = Sheets("Генератор").Cells(Rows.Count, 19).End(xlUp).Row
Sheets("Генератор").Range(Cells(1, 19), Cells(lLastRow, 19)).Select
ВыкладкаФайлы = Selection.Value2

For Each Filename In ВыкладкаФайлы ' здесь Run-time error '13': Type mismatch
Debug.Print Filename