Error in pivot table macro

Hello,

I am having difficulty placing a pivot table on an existing worksheet, it's when I come to the step of declaring what PSheet is referring to and what Dsheet is referring to.

Attached is workbook for better reference:
My main data is being pulled from Sheet1 by a formula (which I need to add to macro)
EFT worksheet is where the pivot table data will be pulled from
EFTPivot worksheet is where I want the pivot table to populate
Payment worksheet is what I want my end result to look like.

But my issue, at least right now when trying to run the macro is when I'm identifying sheet names.

Thank you for a quick reply.

I've updated the issue and it now gets to creating the first pivot table row command and stops. Do I need to remove "End With"?

I am no expert either, I went to here excelchamps . com/blog/vba-to-create-pivot-table/ and found this premade macro for a pivot table. Just amended where I needed, ran it and came up with the first error. I then did your recommendation in recording a macro, which really only works one time as it doesn't specify variables before hand.

I am no expert either, I went to excelchamps and searched vba-to-create-pivot-table and found this premade macro for a pivot table. Just amended where I needed, ran it and came up with the first error. I then did your recommendation in recording a macro, which really only works one time as it doesn't specify variables before hand.

Hello,

Thank you for building that! Now just copying this macro into what I'm using it in, it gets caught up on ShtPivot.UsedRange.ClearContents. So I simply tried to remove it and it creates the blank pivot table on EFTPivot tab then gets hung up on ShtPivot.PivotTables("PivotTable1").RowAxisLayout xlTabularRow.

The only difference between the workbook on this thread and what I'm using is its full with real data.

Hello,

The sheet with raw data is "Sheet1".
Eventually I do want multiple pivot tables, but broken out on different tabs. So my current goal, which is uploaded, is to breakout the data on Sheet1 by using the filter formula turning that into a table then running a pivot table of "EFTTable" to show up on EFTPivot tab.
The next goal is to have the "Payment" tab pull the data from "Sheet1" using the filter formula, setting it up by Table then creating another pivot table on "PaymentPivot" which is not included on the example uploaded.

The last question I'm not understanding.