从 Combobox 中的值选择中筛选到 Listbox 上的数据

问：

我正在尝试将工作表中的数据（名称：“输入”，范围：B2：J 到最后一行）过滤到列表框（名称：lstbox1），并通过从组合框下拉列表中选择一个选项（cmbFilter）将过滤器应用于列表框。

组合框选择必须等于“输入”工作表的 J 列中的值。

我没有找到任何可以应用于以下代码的内容。对不起，我是新手。

Dim sh As Worksheet
Dim lr As Long
                                                
Set sh = ThisWorkbook.Sheets("Input")
lr = Sheets("Input").Range("C" & Rows.Count).End(xlUp).Row

If lr = 1 Then lr = 2

With Me.ListBox1
    .ColumnCount = 9
    .ColumnHeads = True
    .ColumnWidths = "30,40,150,60,60,180,50,0,80"
    .RowSource = "Input!B2:J" & lr
    
End With

我在网上查看了代码，并试图修改上面的代码以解决我的问题，但无济于事。