Pivot Row need to be dynamic..

[VBABEGINER]

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "export!R1C1:[COLOR=#ff0000]R13002[/COLOR]C10",

Hi Everyone, can anyone pls help me on this..
Columns are fix from A to J.
Rows will go change.
how do I mention here dynamic range..?

 

[VBABEGINER]

 

[Joe4]

Perhaps something like:

    Dim lastRow as Long

'   Use column A to find last row with data
    lastRow = Cells(Rows.Count,"A").End(xlUp).Row

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "export!R1C1:[COLOR=#ff0000]R" & lastRow & "[/COLOR]C10",