Dim tbl() As String, Rng As Range, Cel As Range, i As Long
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=3, Criteria1:="A"
Set Rng = Range("A2", [A64000].End(xlUp))
Set Rng = Rng.SpecialCells(xlCellTypeVisible)
ReDim tbl(0 To Rng.Count - 1, 0 To 3)
For Each Cel In Rng
tbl(i, 0) = Cel.Value
tbl(i, 1) = Cel.Offset(, 1).Value
tbl(i, 2) = Cel.Offset(, 2).Value
tbl(i, 3) = Cel.Offset(, 3).Value
i = i + 1
Next
Me.ListBox1.List = tbl
ActiveSheet.ShowAllData