Вот такой макрос не работает  в 2007

Private Sub Worksheet_Change(ByVal Target As Range)
 
   Application.ScreenUpdating = False
   
   If NomCell = 2 And NomRow > 16 Then
 
AR = Cells(NomRow, 2) 'ÀÐÒÈÊÓË
For I = 3 To 10
 PS = Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row
 For J = 7 To PS
qq = Val(Sheets(I).Cells(J, 1))
If qq = AR Then
   
   
   Worksheets("Order" .Cells(CInt(NomRow), 1).Value = NomRow - 16
   Worksheets("Order" .Cells(CInt(NomRow), 3).Value = Worksheets(I).Cells(J, 7).Value
   Worksheets("Order" .Cells(CInt(NomRow), 7).Value = Worksheets(I).Name
   'Cells(CInt(NomRow),   .Value = Sheets(I).Range("F" & J).Value
   Worksheets("Order" .Cells(CInt(NomRow),   .Value = Worksheets(I).Cells(J, 6).Value
   
   
   
   Worksheets("Order" .Range("C" & NomRow).Select
   'Worksheets("Order" .Cells(NomRow, 3).Select
   
   Application.ScreenUpdating = True
   
   End
End If
 
   Next J
Next I
    End If
   
End Sub