ピボットテーブルにて行ラベルが消えてしまう

Question

いつもお世話になっております。
ピボットを作成しているのですが、一つ目はきちんと作成されるのに
二つ目がなぜか行ラベルが消えてしまします。
値フィールド作成時までは表示されてるのですが、そこの構文を抜けると表示が？行ラベルがなくなってしまします。

成功しているコード

    sh.Activate
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        sh.Range("A1:C" & r), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=sh.Range("F2"), TableName:="枠数", DefaultVersion:= _
        xlPivotTableVersion14
    sh.Select
    Range("F2").Select
    With ActiveSheet.PivotTables("枠数").PivotFields("項番")
        .Orientation = xlRowField
        .Position = 1
    End With

    With ActiveSheet.PivotTables("枠数").PivotFields("ページ")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("枠数").AddDataField ActiveSheet.PivotTables( _
        "枠数").PivotFields("会社名"), "データの個数 / 会社名", xlCount
    

行ラベルが消えてしまうコード

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        sh.Range("L1:L" & r), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=sh.Range("M2"), TableName:="会社数", DefaultVersion:= _
        xlPivotTableVersion14
    Cells(2, 13).Select
    With ActiveSheet.PivotTables("会社数").PivotFields("会社数")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("会社数").AddDataField ActiveSheet.PivotTables( _
        "会社数").PivotFields("会社数"), "データの個数 / 会社数", xlCount

Answer 1

他の同じような現象を見つけ、行ラベルを後に入れ替えることによって表示されるようになりました。

   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        sh.Range("L1:L" & r), Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=sh.Range("M2"), TableName:="会社数", DefaultVersion:= _
        xlPivotTableVersion14
    Cells(2, 13).Select
    ActiveSheet.PivotTables("会社数").AddDataField ActiveSheet.PivotTables( _
    "会社数").PivotFields("会社数"), "データの個数 / 会社数", xlCount
    
    With ActiveSheet.PivotTables("会社数").PivotFields("会社数")
        .Orientation = xlRowField
        .Position = 1
    End With