Существует таблица.  
Пример:  
ширина цена  
100     1000  
200     2000  
и т.д.  
Мне часто приходится заполнять заказы. Как сделать так, чтобы при вводе определенной ширины автоматически в соседней ячейке появлялась её цена?

Sub Макрос1()  
'  
' Макрос1 Макрос  
' Макрос записан 06.02.2008 (Alex)  
'  
Dim r  
Dim n  
Dim s  
'  
'------Закрепить облать---------------------------------------------------------------------------------------  
Range("A2").Select  
ActiveWindow.FreezePanes = True  
'------Сортировка по коду производителя и по району-----------------------------------------------------------  
Cells.Select  
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("I2") _  
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _  
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _  
:=xlSortNormal  
'-------------------------------------------------------------------------------------------------------------  
r = Workbooks("datefile.xls").Sheets("datefile").Cells(2, 1)  
s = 2  
For n = 3 To 20000  
If Workbooks("datefile.xls").Sheets("datefile").Cells(n, 1) <> r Then _  
   r = Workbooks("datefile.xls").Sheets("datefile").Cells(n, 1): _  
  Rows(n & ":" & n).Select: _  
  Selection.Insert Shift:=xlDown: _  
  Range("D" & (n)).Select: _  
  ActiveCell.Formula = "=sum(D" + s + ":D" + (n-1) + ")": _  
   s = n + 1  
Next  
End Sub  
 
Ругается на строку  
ActiveCell.Formula = "=sum(D" + s + ":D" + (n-1) + ")": _

Макрос:  
Sub Прайс()  
Dim r  
Dim n  
Dim s  
Workbooks("опт.xls").Sheets("комплектующие").Range("A9:D5000").Copy _  
Workbooks("прайс.xls").Sheets("прайс").Range("A4")  
For n = 4 To 5000  
'Set r = Workbooks("прайс").Sheets("прайс").Cells(n, 3)  
If IsNumeric(Workbooks("прайс.xls").Sheets("прайс").Cells(n, 3)) And Workbooks("прайс.xls").Sheets("прайс").Cells(n, 3) > O Then _  
r = Workbooks("прайс.xls").Sheets("прайс").Cells(n, 3): _  
Workbooks("прайс.xls").Sheets("прайс").Cells(n, 3) = r * 5.35 * 1.09: _  
Workbooks("прайс.xls").Sheets("прайс").Cells(n, 4) = r * 1.09: _  
Workbooks("прайс.xls").Sheets("прайс").Range(Cells(n, 3), Cells(n, 4)).NumberFormat = "0.00"  
If Workbooks("прайс.xls").Sheets("прайс").Cells(n, 1).Interior.ColorIndex = 36 Then _  
Workbooks("прайс.xls").Sheets("прайс").Range(Cells(n, 1), Cells(n, 4)).Interior.ColorIndex = 35  
Next  
'------------------------------------------------------------------------------------------------------------  
With ActiveSheet.Outline  
   .AutomaticStyles = False  
   .SummaryRow = xlAbove  
   .SummaryColumn = xlLeft  
End With  
s = 5  
For n = 5 To 5000  
If Workbooks("прайс.xls").Sheets("прайс").Cells(n, 1).Interior.ColorIndex = 35 Then _  
   Rows("s:n-1").Select: _  
   Selection.Rows.Group: _  
   ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=0: _  
   s = n + 1  
Next  
End Sub  
Ругается на строку Rows("s:n-1").Select: _ мол:  
type mismatch  
Подскажите что не так написал. Пожалуйста.  
Заранее огромное спасибо...

Уважаемые, дорогие знатоки!  
Столкнулся с проблемой.  
При скрытии столбцов с данными на листе Excel, столбцы на диаграмме исчезают. Можно ли сделать, чтобы при скрытии столбцов с данными информация на диаграмме отображалась?  
 
За раннее благодарен.