Creating pivot sheet at the end(by the macro)

[mumsys]

Hello, I'm creating pivot table with the macro, and the sheet with the pivot creates at the beggining (which messes my macro up later). I want it to add a sheet at the end of the workbook. Where should I putt this command?

Set PtCache = ActiveWorkbook.PivotCaches.Add( _
    SourceType:=xlDatabase, _
    SourceData:=s.Range("Concatenate")) 
Set Pt = PtCache.CreatePivotTable( _
    TableDestination:=Sheets("Pivot Sheet").Range("A3"), _
    TableName:="Pivot")

[mumsys]

I posted the same question on Ozgrid
http://www.ozgrid.com/forum/showthre...735#post677735