VBA loop through each item in Pivot Table not picking up last / only item

[vlswanson]

I've cobbled together code from other posts to create a macro to step through each item in a pivot table and save it as a PDF. This generally works, but sometimes the last PDF shows only the header with no data even though there should be data, and if there is only one pivot item, the only file is blank (header with no data...no pivot item selected, but file name, which refers to the selected pivot item, does show the last club name in the list)...can you please let me know what is wrong with this code?

This is a snip of the pivot table

This is what the PDF for the only item in the pivot items list looks like...filename includes the pivot item (AZMGM), but there is no pivot item selected (ClubName should be AZMGM) and therefore no data!

Thank you!