Error when adding pivot table: "PivotTable field name is not valid. ..."

[Anniemack2]

Sheesh, I've liberally borrowed code from this website already, but am still getting an error when I go to insert pivot table. What am I missing?? Would appreciate any help!

    ws_NewBP.Activate    ' Activate worksheet

    Range("A2").Select
    lastrow = ws_NewBP.Cells.Find("", , xlFormulas, xlPart, xlByRows, xlPrevious).Row - 1   ' find last row of data
    ptrange = ws_NewBP.Name & "!R1C1:R" & lastrow & "C6"  ' format = "Sheetname!R1C1:R##C6"
    
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ptrange, Version:=6).CreatePivotTable _
    TableDestination:="Sheet3!R3C1", TableName:="PivotTable3", DefaultVersion:=6

Ann

 

[Anniemack2]

I wanted to add that when I do "Insert pivot table" from excel (not in the macro) with the same data in the very same file, it works beautifully. But the VBA code doesn't work. I also tried recording the steps, the only difference in the recorded code is the range specification. But the range that gets computed looks fine.

Please help!

 

[Anniemack2]

I found my issue - in typing my last response it became more clear that it HAD to be a problem with the Range. I was including a header row that I shouldn't have been. Problem resolved. Hurray!

I'd delete this post but I don't know how to.