Sub Ñâîäíàÿ()
'
' Ñâîäíàÿ Ìàêðîñ
''   Sheets("ïîâàãîííàÿ îòãðóçêà").Select
    Sheets("ïîâàãîííàÿ îòãðóçêà").Copy After:=Sheets(4)    Dim r As Range
    With ActiveSheet
        Set r = Intersect(.UsedRange, .[u:u]).Offset(1)
        r.FormulaLocal = r.FormulaLocal
    End With
    
    '-----------------------------------------------------------------------------
    
    Sheets("Ñâîäíàÿ").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    
    Range("A1").Select
    ' ôîðìèðóåì ñâîäíóþ òàáëèöó
    
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "ïîâàãîííàÿ îòãðóçêà (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Ñâîäíàÿ!R1C1", TableName:= _
        "ÑâîäíàÿÒàáëèöà12", DefaultVersion:=xlPivotTableVersion10
    Sheets("Ñâîäíàÿ").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").AddDataField ActiveSheet. _
        PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields("Äàòà îòãðóçêè"), _
        "Êîëè÷åñòâî ïî ïîëþ Äàòà îòãðóçêè", xlCount
    With ActiveSheet.PivotTables("ÑâîäíàÿÒàáëèöà12").PivotFields( _
        "Êîëè÷åñòâî ïî ïîëþ Äàòà îòãðóçêè")
        .Caption = "Ìàêñèìóì ïî ïîëþ Äàòà îòãðóçêè"
        .Function = xlMax
        .NumberFormat = "ÄÄ.ÌÌ.ÃÃÃÃ"
    End With
    Range("b1:b43").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A1").Select
End Sub

Sub Сводная()
'
' Сводная Макрос
''
    Sheets("Сводная").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    
    Range("A1").Select
    ' формируем сводную таблицу
    
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "повагонная отгрузка (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Сводная!R1C1", TableName:= _
        "СводнаяТаблица12", DefaultVersion:=xlPivotTableVersion10
    Sheets("Сводная").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("СводнаяТаблица12").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("СводнаяТаблица12").AddDataField ActiveSheet. _
        PivotTables("СводнаяТаблица12").PivotFields("Дата отгрузки"), _
        "Количество по полю Дата отгрузки", xlCount
    With ActiveSheet.PivotTables("СводнаяТаблица12").PivotFields( _
        "Количество по полю Дата отгрузки")
        .Caption = "Максимум по полю Дата отгрузки"
        .Function = xlMax
        .NumberFormat = "ДД.ММ.ГГГГ"
    End With
    
    Range("A1").Select
End Sub

Sub ПреобразДанных()
'
' ПреобразДанных Макрос
''
    Sheets("повагонная отгрузка").Select
    Sheets("повагонная отгрузка").Copy After:=Sheets(4)
    Range("U1").Select
    ActiveCell.FormulaR1C1 = "1"
    Range("U1").Select
    ' вводим в ячейку U1 формат даты
    
    Selection.NumberFormat = "m/d/yyyy"
    Selection.Copy
    Range("U5:U43").Select
    ' специальной вставкой умножаем данные на 1 в формате даты
    
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ' заменяем значения 00.01.1900 на ""
    Columns("U:U").Select
    Selection.Replace What:="00.01.1900", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("U1").Select
    Selection.ClearContents
End Sub   

Sub Макрос13()
'
' Макрос13 Макрос
''
    Sheets("повагонная отгрузка").Select
    Sheets("повагонная отгрузка").Copy After:=Sheets(4)
    Sheets("повагонная отгрузка (2)").Select
    Range("U1").Select
    Selection.Copy
    Range("U5:U43").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Сводная").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "повагонная отгрузка (2)!R3C1:R65000C26", Version:=xlPivotTableVersion10). _
        CreatePivotTable TableDestination:="Сводная!R1C1", TableName:= _
        "СводнаяТаблица6", DefaultVersion:=xlPivotTableVersion10
    Sheets("Сводная").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields("PID")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("СводнаяТаблица6").AddDataField ActiveSheet.PivotTables _
        ("СводнаяТаблица6").PivotFields("Дата отгрузки"), _
        "Количество по полю Дата отгрузки", xlCount
    With ActiveSheet.PivotTables("СводнаяТаблица6").PivotFields( _
        "Количество по полю Дата отгрузки")
        .Caption = "Минимум по полю Дата отгрузки"
        .Function = xlMin
        .NumberFormat = "ДД.ММ.ГГГГ"
    End With
End Sub

Sub Add_Sheets()
Dim TC As Range
    For Each TC In Range("h2:h13")
        If TC <> TC.Offset(-1) Then
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = TC
            'тут пишите код чем заполнять листы будете
        End If
    Next TC
End Sub