B3:B10のセル範囲でオートフィルターを掛けた後の可視セルを
リストボックスに表示する例です。

Private Sub UserForm_Initialize()
Dim myRange As Range, r As Range
    Set myRange = Worksheets("Sheet1").Range("B3:B10").SpecialCells(xlCellTypeVisible)
    For Each r In myRange
        ListBox1.AddItem r.Value
    Next
End Sub

> ユーザーフォームの最大、最小のボタンを使用する方法もご教示ください。
↓のようなことですか?
【VBA】UserFormに最小化／最大化を追加して「閉じる」を無効化する！
https://jizilog.com/vba-userform1