VBA code error for assigning a value in "For Each"

I am creating a macro that will take raw data on one sheet and create a pivot table with it on another, but I need to be able to sort by date on the pivot table.

I originally thought I could fix the issue by applying the date format to the raw data before the pivot table was created:

Please Login or Register  to view this content.

but that didnt work, as the pivot table still created that column in general format.

So after the pivot table was created, I have this mess that keeps getting messier the more I work on it:

Please Login or Register  to view this content.

I know that it's unfinished because I am not assigning a value properly, but I dont know what exactly it's asking for. This specific error code gives a 91 With statement error. All I want to do is set pvtTable as the table I am referencing named PivotTable1 and assign the date format to the END DATE field.

I should mention I am brand new at VBA, like as in I just picked this project up 3 weeks ago. So any and all recommendations to the code and improvements to my process overall are welcome, but dumb it down as much as possible for me being a super newbie

THANK YOU! I would not be anywhere near this level of understanding without these forums and the experts that lend a hand.

maybe try:

Please Login or Register  to view this content.

Thanks for the reply,

I tried that and got the error "Run Time 1004 Unable to set the NumberFormat property of the PivotField Class"

My thought was that it was an error with .NumberFormat so I changed it to .DateFormat instead and I got error "438 object doesnt support this property or method"
So I am still stumped on what to try from here..

That's odd, without seeing the data it's hard to suggest anything else.
Uploading a sample sheet might help to pin this down.