どのようなデータでどのようなことをしたいのかわからない状態で
コードを読むのは面倒なので、流し読み程度で済ましておりますこと・・・悪しからず。
さて、フィルター後のA列の可視セルをリストボックスに表示するなら、
下のような感じになるのではないのでしょうか?

Private Sub CommandButton11_Click()

With Worksheets("Sheet1")
.Range("A1").AutoFilter _
Field:=15, Criteria1:="<>完成"
End With

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

リンク先のページは読んでいませんので、どのようなことをしているのか理解していません。
最大、最小の意味がわからなかったので、検索して提示したまでです。