将组合框下拉列表设置为动态值范围

Question

上次我问过这个问题时，我得到了一个有效的解决方案，但我无法再运行该代码了。

在我尝试之前：

Set cell vlookup value based on changing Combobox value

Sub DropDown7_Change()

Application.ScreenUpdating = False

Dim vlook_val As String
Dim v_table_array As Range
'Dim totals_sheet As Worksheet
Dim col_index As Integer
Dim col_index_1 As Integer
Dim result As Variant
Dim result_1 As Variant

Dim list_val As Long

    list_val = Worksheets("front page").Shapes("Drop Down 7").ControlFormat.Value
    Sheets("front page").Range("K9") = Worksheets("pipe_totals").Cells((list_val + 1), 1)

Call front_page_vlookup(vlook_val, v_table_array, col_index, col_index_1, result, result_1)
Application.ScreenUpdating = True

End Sub

我正在尝试将组合框下拉列表设置为另一张具有不同长度的表格中的一行。我使用的组合框称为Drop Down 7。我将列表设置为Sheets("pipe_totals")中的列a，并在下拉列表中选择的值填充单元格K9，然后将其用作其他操作的vlookup值。

知道如何才能让它发挥作用吗？

谢谢