pivot table with macros

i am trying to make a pivot table with macros

in this attached sheet when i click on MDB button the macro should make a pivot table in SHEET5

but it is not updating the table the next time i click the button

there is also a clear button in sheet 5 to clear the pivot table but it also gives n error

run time error 1004

this is the macro code

plzzz help


Sub pivott()
'
' pivott Macro
' Macro recorded 6/3/2009 by Anujj sethi
'

'
Range("A3:F3").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R3C1:R9C6").CreatePivotTable TableDestination:= _
"'[fill rate1.xls]Sheet5'!R25C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10
End Sub