i have tried applying the pivot ,it is showing error in following lines as
Method "SaveAs" of object '_Workbook' failed :
ActiveWorkbook.SaveAs Filename:="C:\Shwetangi\Tivoli\tivoli_18_June.xls", _
FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close