オートフィルタで絞り込んだシートの結果をリストボックスに反映させる

オートフィルタでexcelの表を絞り込んだあとに、
それをリストボックスにどうやって反映させようかと悩んでた。

オートフィルタで絞り込み→別シートに転記→RowSourceに入れる。

で、やってみたけど、これだと別シートの転記に
時間がかかりすぎて、もっさりした実行速度。

これを解消する方法を考えてみた。

オートフィルタで絞り込み→配列に入れる→Listプロパティに入れる。

これだと転記がなくて、配列を入れるだけなんで、簡単で高速。