Szia Imre,

Nagyon köszönöm a segítséget’ Legközelebb figyelek erre a formázásra a kóddal kapcsolatban.
Átírtam a kódot a javaslatod szerint, de sajnos úgysem működött 🙁
Esetleg ha ha tudtok segíteni ebben, hogy mi lehet a hiba, szívesen venném továbbra is.
Íme a kód a jelenlegi formájában:

Sheets.Add.Name = "Fokonyv_pivot"
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Fokonyv!R1C1:R316C21", Version:=6).CreatePivotTable TableDestination:= _
        "Fokony_pivot!R3C1", TableName:="Fokonypivot1", DefaultVersion:=6

    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Fokonyvpivot1")
        .ColumnGrand = True
        .HasAutoFormat = True
        .DisplayErrorString = False
        .DisplayNullString = True
        .EnableDrilldown = True
        .ErrorString = ""
        .MergeLabels = False
        .NullString = ""
        .PageFieldOrder = 2
        .PageFieldWrapCount = 0
        .PreserveFormatting = True
        .RowGrand = True
        .SaveData = True
        .PrintTitles = False
        .RepeatItemsOnEachPrintedPage = True
        .TotalsAnnotation = False
        .CompactRowIndent = 1
        .InGridDropZones = False
        .DisplayFieldCaptions = True
        .DisplayMemberPropertyTooltips = False
        .DisplayContextTooltips = True
        .ShowDrillIndicators = True
        .PrintDrillIndicators = False
        .AllowMultipleFilters = False
        .SortUsingCustomLists = True
        .FieldListSortAscending = False
        .ShowValuesRow = False
        .CalculatedMembersInFilters = False
        .RowAxisLayout xlCompactRow
    End With
    With ActiveSheet.PivotTables("Fokonyvpivot1").PivotCache
        .RefreshOnFileOpen = False
        .MissingItemsLimit = xlMissingItemsDefault
    End With
    ActiveSheet.PivotTables("Fokonyvpivot1").RepeatAllLabels xlRepeatLabels
    With ActiveSheet.PivotTables("Fokonyvpivot1").PivotFields("Assignment")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Fokonyvpivot1").AddDataField ActiveSheet.PivotTables( _
        "Fokonyvpivot1").PivotFields("Osszeg"), "Sum of Osszeg", xlSum

A sheet neve: Fokonyv_pivot
A pivottábla neve: Fokonyvpivot1
A makro csak a sheet letrehoyásáig jut el, a pivot táblánál akad meg.
Előre is köszönöm a segítséget’