Заполните ComboBox в пользовательской форме из диапазона

Question

Я создал пользовательскую форму с каскадом ComboBoxes , а значения для двух ComboBox взяты из двух столбцов на листе.Код работает нормально, но когда я пытаюсь создать одну и ту же пользовательскую форму с немного отличающимися данными, я не могу заставить ComboBox работать - они просто появляются пустыми.

Я пытался использовать определенный диапазон вместо D2 & LastRow, но не могу заставить его работать.

Private Sub Seven_Initialize()

ComboBox_Area.List = Sheets("Seven").Range("E2:E18").Value

End Sub


Private Sub ComboBox_Area_Change()

Dim rngZone As Range
Dim rngList As Range
Dim strSelected As String
Dim LastRow As Long

      If ComboBox_Area.ListIndex <> -1 Then

           strSelected = ComboBox_Area.Value

           LastRow = Worksheets("Seven").Range("D" & Rows.Count).End(xlUp).Row

           Set rngList = Worksheets("Seven").Range("D2" & LastRow)

           For Each rngZone In rngList

                 If rngZone.Value = strSelected Then

                      ComboBox_Seven.AddItem rngZone.Offset(, -1)

                 End If

           Next rngZone

      End If

End Sub

Я не уверен, что я 'Я делаю неправильно, поскольку он отлично работает в другой пользовательской форме с очень похожими данными.