Pivot Tables 2007 - Selection Data

I have the following code and I can't work out how to fix it. What i want is for the macro to create the pivot table from the "used range" in a worksheet but I want it to be formatted as a 2007 pivot table. The reason I say this I because I have some 2003 code which works very well which is where the idea of this come from but it doesn't seem to work here. I have highlighted the problem in orange, I know the rest of the code works because when I replace the orange bit with

"Raw Data!R28868:C33"
it works.

Sub CreatPivot()
Dim wksdata As Worksheet
Dim rngdata As Range
Dim wksdest As Worksheet
Dim pvtTable As PivotTable
Set wksdata = ThisWorkbook.Worksheets("Raw Data")
Set rngdata = wksdata.UsedRange.........................