ComboBox как сделать чтобы список в нем формировался с другой страницы?

[EducatedFool]

Из модуля кода листа уберите макрос Private Sub Worksheet_Activate()

В модуль формы (туда, где код НоваяЯчейка = ComboBox1.Value)
добавьте этот код:

Private Sub UserForm_Initialize()
    '    UserForm1.ComboBox1.Clear
    '    UserForm1.ComboBox2.Clear
    With Sheets("Штатное расписание")
        For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row
            UserForm1.ComboBox1.AddItem .Cells(i, 1)
        Next
        ' можно  обойтись и без этого
        '        For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row
        '            UserForm1.ComboBox2.AddItem .Cells(i, 3)
        '        Next
    End With
End Sub

Private Sub ComboBox1_Change()
    On Error Resume Next
    Me.ComboBox2 = Sheets("Штатное расписание").Columns(1).Find(Me.ComboBox1, , , xlWhole).Next.Next
End Sub

Теперь при выборе должности в соответствующем поле автоматически будет подставляться количество свободных ставок.

[sttafi]

а чтобы остальные поля из формы тоже заполнились в таблицу
нужно этот код изменить:
Private Sub CommandButton1_Click()

If ComboBox1.Text = "" And ComboBox2.Text = "" Then MsgBox "Заполните все поля!", vbExclamation: Exit Sub
Dim НоваяЯчейка As Range: Set НоваяЯчейка = Cells(65000, 2).End(xlUp).Offset(1)
НоваяЯчейка = ComboBox1.Value
НоваяЯчейка.Next = ComboBox2.Value

я думаю, что это нужно сделать добавив следующую строку :
Sheets("Физические лица").Cells(i, 1) = TextBox1.Text
Sheets("Физические лица").Cells(i, 4) = TextBox2.Text
и.т.д.
почему-то ничего не получается