Unable to add CubeField/PivotField as a Data Field in VBA

I'm working on a very long Macro for my job and I am just about finished, but this is the last part and no matter what I do, I can't seem to figure out the fix. In this PivotTable, I need to have "Managers" as the columns and everything else (i.e. all of the months) in the Values section, with "Values" as the rows. After tinkering around, it seems as though all of the fields registered as CubeFields instead of PivotFields. When I run this, as soon as it gets to .Orientation = xlDataField, it throws a "Run-Time error 5...Invalid procedure call or argument." I also need to make sure that those DataFields are averaged and in a specific number format. Nothing I do works, and any guidance/fixes/workarounds would be greatly appreciated! Below are the macro and a download link to the file for tinkering.

Sub addFieldsToPivot()
    Dim pvtTable As PivotTable
    Dim cubField As CubeField
    Dim i As Long
    Dim cubName As String
        
    Set pvtTable = ActiveSheet.PivotTables(1)
    For Each cubField In pvtTable.CubeFields
        For i = 1 To pvtTable.CubeFields.Count
            With pvtTable.CubeFields(i)
                If .Name = "[effRent_perBed].[Manager]" Then
                    .Orientation = xlColumnField
                Else:
                    .Orientation = xlDataField
                    'has to be averaged
                    'has to have number format of ##0.00
                End If
                
            End With
        Next
    Next
    
End Sub

Also posted this question on MrExcel, SuperUser/Stack Overflow and OzGrid

Rule 08: Cross-posting Without Telling Us

Your post does not comply with Rule 8 of our Forum RULES. Do not cross-post your question on multiple forums without telling us about your threads on other forums.

Post a link to any other forums where you have asked the same question. If you have fewer than 10 posts here, you will not be able to post a link, but you must still tell us where else you have asked the question.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).


Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

No further help to be offered, please, until the OP has complied with these requests.

I explained that above. You have too few posts to provide links, so list the names of the other forums where you have asked the same question. And please read our rules before posting again.

Thanks.