Getting Run time Error 5 when Creating a Pivot Table

[gate68]

I am creating 10 pivot tables for data in one worksheet and putting them in a separate work sheet. i used the macro recorder but the cod eit worte stop at this line

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'RCH&BEA'!C2").CreatePivotTable TableDestination:="'RCH&BEA PIVOT TABLES'", TableName:= _
"RCH&BEA PIVOT TABLES", DefaultVersion:=xlPivotTableVersion10

The error i get is that run time error 1004 where it says this command requires atleast two rows of source data. It also says something about specifically about pivot tables but it cuts it off

 

[gate68]

I am using it but what is happening is that it will only pick the second line of .addfield code for row field. The new field that i am adding is just labeling the charts

 

[RoryA]

I'm afraid I have no idea what you mean.

 

[gate68]

 With ptRNT
      .AddDataField .PivotFields("Date"), "Count of Date", xlCount
      .AddFields RowFields:="Issue"
      .AddFields RowFields:="Date"

What happend is it skips over issue add field and just puts the Date in

 

[RoryA]

Try combining the two:

.AddFields RowFields:=Array("Issue", "Date")

</pre>