Problema con código para formulario

Tengo el siguiente código que me hiciste favor de revisar, pero lo estoy adaptando a otro formulario pero no me trae la información, te comento que son 2 formularios uno ya esta bien pero el segundo no me deja traer la información.

Private Sub ComboBox1_Change()
'Mod.Por.Dante Amor
    Application.ScreenUpdating = False
    Hoja6.Cells.Clear
    Hoja6.[A1] = "SUSTANCIA"
    Hoja6.[A2] = ComboBox1
    Filtrado
    ListBox1.RowSource = Hoja6.Name & "!B2:U" & Hoja6.Range("B" & Rows.Count).End(xlUp).Row
End Sub

Private Sub UserForm_Activate()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set h5 = Sheets("SUSTANCIA")
    For i = 2 To h5.Range("A" & Rows.Count).End(xlUp).Row
        agregar ComboBox1, h5.Cells(i, "A")
    Next
End Sub

Sub agregar(combo As ComboBox, dato As String)
'Por.Dante Amor
    For i = 0 To combo.ListCount - 1
        Select Case StrComp(combo.List(i), dato, vbTextCompare)
            Case 0: Exit Sub 'ya existe en el combo y ya no lo agrega
            Case 1: combo.AddItem dato, i: Exit Sub 'Es menor, lo agrega antes del comparado
        End Select
    Next
    combo.AddItem dato
End Sub