Macro to sort out a pivot table

Hello All
I have been searching for a macro that will sort out a Pivot Tables in a protected sheet. So far have found a macro (link below) but as you can see it will work with all sheets in a workbook rather then just one.
The data for the Pivot Table is held in a hidden sheet.
I am using Excel 2003 and when I update the data the new item appears at the end of the existing data in the Pivot Table, instead of being listed alphabetically. I was hoping (with someones kind assistance) to run a macro if possible within the following worksheet change (the unhide macro that I use on the data sheet will unprotect the pivot (protected) sheet).

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'If data on this worksheet changes, refresh the pivot tables

Worksheets("Collection").PivotTables("PivotTable1").PivotCache.Refresh
Worksheets("Collection").PivotTables("PivotTable2").PivotCache.Refresh

End Sub

http://www.contextures.com/xlPivot05.html

Any help is appreciated.

Thanks

Please ignore solution found