Pivot Table VBA

[Zibi]

Hi,

I am trying to create pivot table with VBA, i try recording the macro but I am geting en error</SPAN>
Please help


Run-time error '5':
invalid procedure call or argument

I am using Offset to define range "CellRange
=OFFSET('10AM Mix'!$A$1,0,0,COUNTA('10AM Mix'!$A:$A),2)


Sub MIX()
'
' Macro13 Macro
'

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"CellRange", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="10AM Mix!R2C4", TableName:="PivotTable", _
DefaultVersion:=xlPivotTableVersion10
Sheets("10AM Mix").Select
Cells(2, 4).Select
With ActiveSheet.PivotTables("PivotTable").PivotFields("code")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable").AddDataField ActiveSheet.PivotTables( _
"PivotTable").PivotFields("code"), "Count of code", xlCount
With ActiveSheet.PivotTables("PivotTable").PivotFields("store")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable").PivotFields("store").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
End Sub