для этого вам надо при инициализации формы (с комбобоксом) найти последный запись в столбце

например так -

Private Sub UserForm_Initialize()
Dim rng As Range
Dim vars As Variant
Dim strtxt As String
Dim ecol As Integer
ecol = Sheets("имя листа").Cells(65536, 2).End(xlUp).Row / послед. зап. в столбце В
Set rng = Sheets("имя листа").Range("B1:B" & ecol) / В1:В диапазон дааных для комбобокса
For Each vars In rng
UserForm1.ComboBox1.AddItem (vars)
Next vars
'UserForm2.TextBox1.AddItem
strtxt = Me.ComboBox1.Text
End Sub