Private Sub UserForm_Initialize()  
Dim sh As Worksheet  
Me.ComboBox1.Value = "30000"  
Me.ComboBox2.Value = "Всегда"  
Me.ComboBox3.Value = "А"  
  Me.ComboBox1.RowSource = ("Лист2!A2:A7")  
  Me.ComboBox2.RowSource = ("Лист2!A10:A12")  
  Me.ComboBox3.RowSource = ("Лист2!A15:A17")  
End Sub

Еще можно дописать  
 
  ComboBox1.ListIndex = 3  
  ComboBox2.ListIndex = 0  
  ComboBox3.ListIndex = 0

Ребята. Немного видоизменил форму  
Первый раз при вызове формы всё появилось.  
А потом: Закрыл и открыл – ноль эмоций.  
И когда нажимаешь "Слідуючий" (т.е."Следующий")  
С уважением, Сергей

Я вам отвечал, что макрос писался под определенную задачу, и в лоб там ничего не сделать!  
Как вариант надо так.

SERZH а так вас не устроит?  
работает так:  
чтобы внести изменение в уже имеющийся элемент выбираете соответствующую ячейку в первом столбце, появляется форма.  
чтобы добавить новый элемент выбираете пустую ячейку в конце списка в первом столбце или нажимаете на зел.кнопку: "НОВИЙ" или на первом листе на вашу кнопку.    
так же добавил поиск от Hugo. (по первым двум столбцам)  
вроде все удобно и работает.  
попробуйте.

Только вот в макросе  
 
Sub new_row()  
Dim iLastRow As Long  
iLastRow = Sheets("РИД").Cells(Rows.Count, 1).End(xlUp).Row + 1  
Form.Show  
End Sub  
 
определение iLastRow ни к чему - эта переменная здесь же и умирает.  
А в форме определяется другая iLastRow.