fill listbox (ActiveX) based combobox (ActiveX)

how fill listbox (ActiveX) based combobox (ActiveX)

Private Sub ComboBox1_Change()

Dim c As Variant

    With Worksheets("Dados")
        c = Application.Match(ComboBox1.Value, .Range("A1:D1000"), 0)
    
        If Not IsError(c) Then
            ListBox1.List = .Range(.Cells(2, c), .Cells(Rows.Count, c).End(xlUp)).Value
        End If
    End With

End Sub

i need choise value in combobox (ActiveX), then listbox (ActiveX) show data from tab "OrigData"