Не совместимость 2007 c 2003

[armagedon_atyrau]

Здравствуйте Всем!!!!

Я написал макрос который делает PivotTable на Ексель 2007 теперь она не работает в 2003 Екселе.
Подалуйста помогите
Заранее спасибо.

Sub Add()
   Dim sh, shcl As Worksheet
   Set sh = Worksheets("Sheet2")
   Set shcl = Worksheets("Sheet1")
   sh.Activate
   sh.Cells.Clear
  ' ошибка пишет здесь            
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
       Sheet1.Columns("A:E"), Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=sh.Name & "!R3C1", TableName:="PivotTable", DefaultVersion _
       :=xlPivotTableVersion12
       
   With ActiveSheet.PivotTables(1)
      .PivotFields("Íàèìåíîâàíèå").Orientation = xlRowField
      .PivotFields("Íàèìåíîâàíèå").Position = 1
      .PivotFields("Íîìåð Çàêàçà").Orientation = xlRowField
      .PivotFields("Íîìåð Çàêàçà").Position = 2
   
      .AddDataField .PivotFields("Êîë.íà èç ÷àí"), "Ñóììà Êîë.íà èç ÷àí", xlSum
      .AddDataField .PivotFields("Êîë.âñåãî"), "Ñóììà Êîë.âñåãî", xlSum
     shcl.Cells.Clear
   End With
End Sub