Допустим, есть БД в экселе с повторяющимися значениями. Как сделать, чтобы в выпадающем списке эти значения занимали одну позицию?  
Прилагаю файл, проблема в ячейке B13

Учусь в техническом вузе. Делаю расчёт валов на усталостное напряжение для кафедры. Для построения эпюр изгибающих моментов использовал диаграммы с областями.  
Расчет величины изгибающего момента ведется на каждый миллиметр длины вала. Значит и диапазон выделения ячеек диаграммы идет от 0 мм до конечной длинны вала. Но длина вала у всех разная, значит и конечная ячейка будет плавающая.  
Написал макрос, который при нажатии кнопки автоматически выделяет нужный диапазон ячеек. Все работало нормально, пока я не доделал всю программу, и не пришло время защищать листы.  
При нажатии на кнопку выдает ошибку:  
"Run-time error '1004'  
Application-defined or objeck-defined error"  
 
Вот текст макроса:  
Sub Построение_Диаграмм_Тихоход_ЧР()  
Dim a As Integer  
a = Application.Range("'Калькуляционный Лист'!D40") + 3  
 
   ActiveSheet.ChartObjects("Диаграмма 3").Activate  
   ActiveChart.PlotArea.Select  
   ActiveChart.SetSourceData Source:=Sheets("Калькуляционный Лист").Range( _  
       "K3:K" & a)  
     
       Range("A101").Select  
End Sub  
 
Помогите, пожалуйста, решить проблему.